- Hamarosan bárki hazavihet egy Apple Vision Pro headsetet
- Gmail
- Az Intel a legmodernebb chipgyártó géppel előzheti meg az egész szektort
- DIGI kábel TV
- Anyagi katasztrófára figyelmezteti az Apple-t a brit média
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Információbiztonság, kiberbiztonság, adatvédelem
- Programozás topic
- Bittorrent topik
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!”
-
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
- SSD kibeszélő
- EAFC 24
- Hamarosan bárki hazavihet egy Apple Vision Pro headsetet
- Hardcore café
- Külföldi rendelések: boltok, fizetés, postázás
- Hobby rádiós topik
- ArmA 3 - This Is War
- Amlogic S905, S912 processzoros készülékek
- Honor Magic6 Pro - kör közepén számok
- AMD GPU-k jövője - amit tudni vélünk
- További aktív témák...
- AKCIÓ! Szépségápolás, Haj - és Szakállápolási márkás gépek - BOLTI ÁR FELÉÉRT!
- Bomba! HP EliteBook 1040 G7 x360 Érintős Hajtogatós Ultrabook Tab 14" -70% i7-10710U 16/256 FHD LTE
- BONTATLAN Új Iphone 15 és 15 Plus 128-512GB 1év APPLE garancia gyári független Deák AZONNAL Átvehető
- BONTATLAN Új Iphone 13 128-512GB 1év hivatalos Apple garancia gyári független Deák Azonnal Átvehető.
- ÚJ BONTATLAN Apple Watch Series 8 S8 41-45mm Azonnal Átvehető DEÁK TÉRNÉL 1 Év Apple Garanciával.
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen