Серый форум — VBS: Создание директории с именем текущей даты

Re: VBS: Создание директории с именем текущей даты

2010-10-08T13:01:59Z

Спасибо Vladimir_02 использовал ваш код .....всё работает

Re: VBS: Создание директории с именем текущей даты

2010-09-09T05:36:51Z

Можно еще так:

Dim today

 today = Now
 today = Replace (Left (today, InStr (today, " ")-1),".", "")

ну, а дальше как в предыдущем посту.

Re: VBS: Создание директории с именем текущей даты

2010-09-08T17:16:22Z

Можно так создать папку с именем 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 файлов с рекурсивным перебором каталогов"... что-то похожее расматривалось.

VBS: Создание директории с именем текущей даты

2010-09-08T11:17:08Z

Вопросы новичка
1.Как на VBS создать директорию с именем текущей даты и скопировать туда необходимые файлы?
2.Как удалять директории старше определённой даты.