Aktív témák
-
Sunzi
aktív tag
http://msdn.microsoft.com/library/default.asp
Ugyanez az adatbázis található a Visual Studio-hoz tartozó MSDN Library CD-ken.
Itt lehet keresni ezerrel
S. -
Sunzi
aktív tag
Valóban, ha tegyük fel pontbn éjfél előtt 1-2 ezredmásodperccel futtatja, akkor a hiba előálhat..
új kód:
set fso=CreateObject(''Scripting.Filesystemobject'')
Dim fnamed
fnamed=Date()
fname=Right(Year(fnamed),2)
fname=fname & ''-'' & Left(''00'',2-Len(Month(fnamed))) & Month(fnamed)
fname=fname & ''-'' & Left(''00'',2-Len(Day(fnamed))) & Day(fnamed)
set f=fso.Createfolder(''C:\'' & fname)
Kevésbé bonyolult mondjuk nem lett tőle...
S. -
Sunzi
aktív tag
válasz
TheVeryGuest
#7
üzenetére
Jaja, azaz.
a vbs file önnmagában is futtatható, a file-t egyébként a wscript.exe dolgozza fel.
Ütemezőbe így írnám be:
''wscript ''C:\...\akarmi.vbs''
Szólja, ha sikerült...
S. -
Sunzi
aktív tag
Akár notepadban nyitsz egy új file-t, aminek xxx.vbs lest a neve:
--------------------------
set fso=CreateObject(''Scripting.Filesystemobject'')
fname=Right(Year(Date()),2)
fname=fname & ''-'' & Left(''00'',2-Len(Month(Date()))) & Month(Date())
fname=fname & ''-'' & Left(''00'',2-Len(Day(Date()))) & Day(Date())
set f=fso.Createfolder(''C:\'' & fname)
---------------------------
Kipróbáltam, megy..
S.
Aktív témák
- SAPPHIRE Radeon RX 7900 XT Pulse Gaming OC 20G
- Macbook Air 15" M4 2025 - 16 GB RAM, 512 GB SSD - Apple garancia (116)
- Macbook Air 13" M1 2020 - 16 GB RAM, 256 GB SSD - garancia (112)
- Samsung Galaxy Watch5 Pro LTE titán ház, zafír üveg
- Xiaomi Mesh System AC 1200 EU 4 db egyben eladó. 2027.05-ig Alza gari.
- 27% - Arzopa A1T 15,6" Hordozható Monitor!
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Honor Pad X8a 64GB,Újszerű,Dobozaval,12 hónap garanciával
- LG OLED65G49LS CSÚCS Ultra HD 4K 65" OLED TV!
- HIBÁTLAN iPhone 12 64GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS4655
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



