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

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

null@example.com (NAUN) — Fri, 08 Oct 2010 13:01:59 +0000

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

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

null@example.com (Faalh) — Thu, 09 Sep 2010 05:36:51 +0000

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

Dim today

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

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

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

null@example.com (Vladimir_02) — Wed, 08 Sep 2010 17:16:22 +0000

Можно так создать папку с именем 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: Создание директории с именем текущей даты

null@example.com (NAUN) — Wed, 08 Sep 2010 11:17:08 +0000

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