Petr_Ch
В скрипте по приведённой Flasher ссылке нужно убрать функцию NextName - удалить кусок кода
Code:
Function NextName(pFilePath)
...
End Function
А процедуру MoveFile поменять:
Code:
Sub MoveFile(pFile, pFolder)
Dim lF, lE
lF = "C:\temp\" & FSO.GetParentFolderName(pFolder.Path) & "_" & pFile.Name
lE = LCase(FSO.GetExtensionName(pFile.Path))
If (lE = "jpg") Or (lE = "tif") Then FSO.MoveFile pFile.Path, lF
End Sub
_________________ Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Sun Feb 03, 2013 22:28; edited 2 times in total
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
