- Kínában túl sok az EV, fokozódik az árháború
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- A Microsoft feltalálta az olcsó AI-t
- eBay
- Átjutottak a Ciscón, betörtek a kormányok hálózataiba
- Ubiquiti hálózati eszközök
- Windows 11
- Linux kezdőknek
- Hálózati / IP kamera
- A Coca-Cola következő nagy újítása az AI
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
- Assetto Corsa Competizione
- gban: Ingyen kellene, de tegnapra
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Mini-ITX
- LG 34GS95QE-B: OLED paneles, ívelt gamer monitor
- Azonnali notebookos kérdések órája
- Autós topik
- Monitor hiba topik
- Milyen TV-t vegyek?
- OTP Bank topic
- További aktív témák...