Hikikomori San log:
> Witam,
> Podpowiedzcie mi, jak utworzyc katalog w formacie daty YYYY-MM-DD lub
> innej np. YYYYMMDD_HHMMSS
[...]
Hi!
pex.: YYYY-MM-DD_Folder.vbs
-------------------
strComputer = "."
ParentFolder = "C:\"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_UTCTime",,48)
For Each objItem in colItems
objFolder.NewFolder ("od_mb\" & Replace(Date,"","-"))
Next
------
Wystarczy tylko 'posterować' "C:\" ... no i "od_mb\" ...!;-)
GL&BE
-- Człowiek uczy się całe życie ... Direct ActionReceived on Sun Jan 28 23:00:10 2007
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Sun 28 Jan 2007 - 23:42:04 MET