Тема: VBS: Создание директории с именем текущей даты
Вопросы новичка
1.Как на VBS создать директорию с именем текущей даты и скопировать туда необходимые файлы?
2.Как удалять директории старше определённой даты.
2 2010-09-08 21:16:22 (изменено: Vladimir_02, 2010-09-08 22:35:14)
Re: VBS: Создание директории с именем текущей даты
Можно так создать папку с именем YYYY_MM_DD
Dim s
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
dim d,m,y
d = day( date() )
m = month(date())
y = year(date())
if d < 10 then
d = "0" & d
end if
if m < 10 then
m = "0" & m
end if
s = y & "_" & m & "_" & d
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(s)а скопировать файлы так:
f = "C:\temp\*.txt"
objFSO.CopyFile f , s, OverwriteExistingгде, f - файлы которые копируем (все txt). а s - куда копируем
поищи здесь по поиску тему "BackUp файлов с рекурсивным перебором каталогов"... что-то похожее расматривалось.
Re: VBS: Создание директории с именем текущей даты
Можно еще так:
Dim today
today = Now
today = Replace (Left (today, InStr (today, " ")-1),".", "")ну, а дальше как в предыдущем посту.
Re: VBS: Создание директории с именем текущей даты
Спасибо Vladimir_02 использовал ваш код .....всё работает
