- Google Chrome
- Windows 11
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- YouTube
- Windows Insider Program
- AutoCAD
- Már nem hisz a nagy európai EV-forradalomban a Ford
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
- Milyen program, ami...?
- ASUS routerek
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
- Konzolokról KULTURÁLT módon
- Android szakmai topik
- Azonnali informatikai kérdések órája
- Google Chrome
- Redmi Watch 4 - olcsó hús, sűrű a leve
- Megjelent a The Last of Us Part 1 PC-s kiadása
- Fűnyíró topik
- AMD Navi Radeon™ RX 6xxx sorozat
- HYTE THICC Q60: a legvaskosabb vízhűtés
- Windows 11
- További aktív témák...
- Asus ROG Strix G17 (G712LWS) - 17.3"
- Szép! HP EliteBook 840 G6 Fémházas Laptop 14" -70% i5-8365U 4Mag 16GB 512GB SSD FHD IPS + Táska!
- Szép, és jó! HP EliteBook 840 G5 Laptop 14" -70% i5-8350U 4Mag 16Gb 512GB SSD FHD IPS + Táska!
- Zotac gaming amp airo Geforce RTX 4070ti 2026 végèig garanciás
- 9gen PC,, i5 9600K , 1660 Ti , 16GB 3000MHz , 512GBGB m.2 , 1TB HDD
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest