- YouTube
- Windows 11
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Már nem hisz a nagy európai EV-forradalomban a Ford
- Aliexpress tapasztalatok
- Synology NAS
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- SkyShowtime
- Vírusirtó topic
Aktív témák
-
beeboy
addikt
Hali!!
nem nagy dolog, de hogy kéne megcsinálni
mondjuk a feladatütemezővel (vagy máshogy):
azt szeretném, hogy a gép minden nap létrehozzon egy mappát az aktuális dátummal: pl. C:\....\03-08-27
ezt meg lehet csinálni?Nem vagyok intelligens. Én AMDligens vagyok...
-
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.Ízirájder öcsém, ízirájder...
-
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.Ízirájder öcsém, ízirájder...
-
beeboy
addikt
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)
------------------------------
1.sor 22.karakter szintaktikai hiba
nem műxikNem vagyok intelligens. Én AMDligens vagyok...
-
WN31RD
addikt
Nem vagyok otthon a VBS-ben, de szemet szúrt a következő dolog:
Ha a script pont egy olyan időpontban fut, hogy az év, hónap és nap lekérdezése között a dátum változik, akkor hibásan fog működni (rossz dátumú könyvtárat hoz létre). Továbbá, ha a nap vagy a hónap két-két lekérdesé között változik a dátum, akkor bizonyos esetekben nem a megfelelő számú '0' lesz a szám elé rakva, azaz nem két karakteres lesz a hónap vagy a nap.
Persze ezek apróságok, és igen valószínűtlen, hogy ilyen szerencsétlen időpontban futtatná valaki a scriptet, de ha az elején egy változóba letárolná a dátumot (tehát csak egyszer kérdezné le), és utána ezt használná, akkor nem lenne gond, és a script sem lenne számottevően bonyolultabb.''... we as consumers want our content free (as in Freedom) and if we don't get it, we'll take our content free (as in beer).''
-
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.Ízirájder öcsém, ízirájder...
-
WN31RD
addikt
Persze, tényleg nagyon valószínűtlen...
De ha már úgyis észrevettem (nem direkt ezt keresve), és ha úgyis ilyen pofonegyszerűen javítható a dolog, akkor miért ne javítanánk ki? Elegánsabb lenne...''... we as consumers want our content free (as in Freedom) and if we don't get it, we'll take our content free (as in beer).''
-
beeboy
addikt
mondjuk miután kicseréltem a DUPLA felülvesszőket idézőjelre már
hajlandó elindulni....Nem vagyok intelligens. Én AMDligens vagyok...
-
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.Ízirájder öcsém, ízirájder...
-
X-COM
nagyúr
egyébként sima batchből is meg lehet csinálni
@echo off
set yyyy=%date:~0,4%
set mm=%date:~5,2%
set dd=%date:~8,2%
set folderdate=%yyyy%-%mm%-%dd%
md %folderdate%Blog:http://ikszkom.freeblog.hu RSS:http://ikszkom.freeblog.hu/rss.xml http://live.xbox.com/member/ikszkom
-
-
beeboy
addikt
tényleg jó az a microsoft link, egy-két dolog már összejött, persze még nagyon amatőr szinten
Nem vagyok intelligens. Én AMDligens vagyok...
-
beeboy
addikt
vbs-ben hogyan lehet alkalmazni a globális karaktereket?
pl. fájl létezik-e: ''*.txt'' - értelmezze a * karaktert, ne ezt keresseNem vagyok intelligens. Én AMDligens vagyok...
-
amargo
addikt
megláttam ezt a topickot és lenne egy kérdésem, van itt a PH! olyan topic ami direkt c++ vagy buliderrel foglalkozna?
“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
Xpod
addikt
Ezt nem tudom de a prog.hu-n biztos.
Most kezdődjék a tánc! - mondta a papagáj és berepült a ventilátorba.
-
X-COM
nagyúr
erre, ha jól tudom vbs-ben nincsen egyszerű módszer
itt már wmi-t is kell csinálni
egyébként lehet trükközni, hogy a dir *.txt-t átirányítod egy file-ba és feldolgozod annak tartalmátBlog:http://ikszkom.freeblog.hu RSS:http://ikszkom.freeblog.hu/rss.xml http://live.xbox.com/member/ikszkom
-
X-COM
nagyúr
hm, ez hol szerepelt pontosan?
ez egy megoldás lehet:
Dim oFSO,oFolder
Set oFSO=WScript.CreateObject(''Scripting.FileSystemObject'')
set oFolder=oFSO.GetFolder(''C:\'')
For Each file In oFolder.Files
If Right(file.name,4)=''.txt'' then
WScript.Echo(file.name)
End if
Next
Set oFolder=Nothing
Set oFSO=NothingBlog:http://ikszkom.freeblog.hu RSS:http://ikszkom.freeblog.hu/rss.xml http://live.xbox.com/member/ikszkom
-
beeboy
addikt
asszem itt láttam:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/reconspecialcharacters.aspNem vagyok intelligens. Én AMDligens vagyok...
-
beeboy
addikt
Aktív témák
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Elveszítette az egyik legnagyobb kínai partnerét az Intel és a Qualcomm
- Házimozi haladó szinten
- Milyen billentyűzetet vegyek?
- nVidia tulajok OFF topikja
- YouTube
- Filmvilág
- Windows 11
- Építő/felújító topik
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- MECHANIC PCB repair PAD - 2. generációs kialakítás
- DC csatlakozós ventilátor kábel - 1 utas vagy 3 utas változat
- ÚJ, bontatlan iPad PRO 13 (2024) M4 CHIP! 256GB WIFI asztrofekete, 1 év Apple garancia!
- Samsung Galaxy S22 Ultra 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- HP Victus 16-r1019nt - ÚJ 16" FullHD IPS GAMER notebook - i7-14700HX, 32GB, RTX 4070
- ASUS Radeon RX 6600 8GB GDDR6 Videokártya
- Kingston FURY Renegade 32GB (2x16GB) DDR4 3600MHz CL16 - ALZA garancia 2028.04.12.
- Dell G3 3590 gamer notebook (i7, 16GB, NVIDIA GeForce GTX 1650)
- Eladó ÚJ, bontatlan Spider Man 2 Playstation 5 játék
- Olcsó/modded/kishibás/hiányos tápok: FSP Hexa 500, TT 850, Corsair VS550, Seasonic 450
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest