Тема: VBS: Создание директории с именем текущей даты
Вопросы новичка
1.Как на VBS создать директорию с именем текущей даты и скопировать туда необходимые файлы?
2.Как удалять директории старше определённой даты.
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Серый форум → Общение → Windows Script Host, HTA (VBScript, JScript) → VBS: Создание директории с именем текущей даты
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Вопросы новичка
1.Как на VBS создать директорию с именем текущей даты и скопировать туда необходимые файлы?
2.Как удалять директории старше определённой даты.
Можно так создать папку с именем 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 файлов с рекурсивным перебором каталогов"... что-то похожее расматривалось.
Можно еще так:
Dim today
today = Now
today = Replace (Left (today, InStr (today, " ")-1),".", "")
ну, а дальше как в предыдущем посту.
Спасибо Vladimir_02 использовал ваш код .....всё работает
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться