D:\OTDEL\0001
вот эту часть менять???
подойдёт
Dim Hirina as long
Dim Hirina_STR as string
и пока цикл продолжается
Hirina = Hirina +1
а потом преобразуй её
Hirina_STR = Format(Yaer(Hirina ), "0000")
в скрипт Hirinka_STR
my_Patch = "D:\OTDEL\" & Hirina_STR & "\" & Folder_NAME(дата из поля на форме)
Set objFolder = objFS.GetFolder(my_Patch)'Папка, из которой производится печать
Ответить
автор: час (07.01.2009 в 21:01) личное сообщение
А для смены расширения заведи переменную
Dim Hirinka as long например
Dim Hirinka_STR as string
и пока цикл продолжается
Hirinka = Hirinka +1
а потом преобразуй её
Hirinka_STR = Format(Yaer(Hirinka ), "0000")
и вместо "doc" всавь в скрипт Hirinka_STR
If StrComp(objFS.GetExtensionName(objItem.Name), Hirinka_STR , vbTextCompare) = 0 Then
|