Вопрос № 40747: Здравствуйте, уважаемые эксперты!
Помогите автоматизировать задачу в WinXP: каждый день нужно создавать в папке Temp новую папку, с именем текущего дня, месяца и года (дд-мм-гг), например сегодня 19 апреля 2006 года, должна создаться папка с имен...
Вопрос № 40.747
Здравствуйте, уважаемые эксперты!
Помогите автоматизировать задачу в WinXP: каждый день нужно создавать в папке Temp новую папку, с именем текущего дня, месяца и года (дд-мм-гг), например сегодня 19 апреля 2006 года, должна создаться папка с именем 190406, желательно осуществить проверку, не существует ли уже такая папка, а потом создавать. Напишите, пожалуйста, текст bat файла или vbs файла.
Спасибо.
Отправлен: 19.04.2006, 16:13
Вопрос задал: Anton_VSH (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Филатов Евгений Геннадьевич
Здравствуйте, Anton_VSH!
Пример для VB6
dim s as string
s=Day(Now) & Month(Now) & right(Year(Now),2)
If Not UCase(Dir(UCase(curdir() & "Temp" & s), vbDirectory)) = UCase(s) Then
MkDir (curdir() & "Temp" & s)
End If
Пример для VBScript
Dim fso,f,s, fc, f1
dim dd
dd=day(now) & right("0" & month(now),2) & right(year(now),2)
s=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("J:Temp")
'здесь надо указать реально существующий каталог Temp
Set fc = f.SubFolders
For Each f1 in fc
if f1.name=dd then
'если такой подкаталог существует выход из цикла
s=1
exit for
end if
Next
if s=0 then
'если подкаталога нет
fc.add(dd)
end if
Пытался написать для DOS, но не получилось с возвратом отдельно дня, месяца и года из стандартной функции DATE, а проверка на наличие и создание каталога работает :
if not exist j: emp190406 md j: emp190406
Ответ отправил: Филатов Евгений Геннадьевич (статус: 1-ый класс)
Ответ отправлен: 19.04.2006, 19:50 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ!
