Re: Katalog w formacie daty YYYY-MM-DD

Autor: Michal Biek <mb_at_2.pl.invalid>
Data: Sun 28 Jan 2007 - 22:54:01 MET
Message-ID: <epj64k$cv$1@opal.icpnet.pl>
Content-Type: text/plain; format=flowed; charset="iso-8859-2"; reply-type=response

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 Action 
Received 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