PROHARDVER! témák
Mobilarena témák
IT café témák
Aktív témák
-
katona.t
tag
Elakadtam, segítsetek!
Adott egy mappa, amibe azonos nevű file-ok érkeznek. A beérkezett file-t mindig át szeretném nevezni, hogy meglegyen. Tehát olyan szkript kellene ami "filenév+növekvő szám.kiterjesztés" formátumra nevez át.
Eddig ennyi van meg, de a növekvő számot nem tudom megoldani:
Dim fso
i=1
Do While i=101
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "bejovo.txt", "bejovo1.txt"
WScript.Sleep(1000)
i=i+1
Loop100 szor fut le a ciklus, és azt kellene megoldani, hogy a bejovo1.txt-nél az 1 helyén az i aktuális értéke legyen.
Tehát bejovo1.txt, bejovo2.txt stb...
Hogy tehetem az i-t a filenévbe?
Aktív témák
Aktív témák
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- Yettel topik
- Robotporszívók
- Xbox Series X|S
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Kertészet, mezőgazdaság topik
- PlayStation 5
- Véleményes teszt bizonygatja mennyit ér a Macbook Neo 8 GB RAM-ja
- Milyen TV-t vegyek?
- Óra topik
- További aktív témák...
Új fizetett hirdetések
- Kingston FURY Beast 32GB (2x16GB) DDR4 3200MHz (Beszámítás)
- ÚJ HP All in One 24-cr1234na PC - 24"FHD IPS - Ultra 5 125U - 16GB - 512GB SSD - Win11 - Garancia
- Saeco Syntia digitális automata kávéfőző szálcsiszolt fém burkolattal
- Jura F50 classic V2 automata kávéfőző cappuccino fejjel
- Garis Új Samsung Galaxy A35 5G eladó
Üzleti előfizetők hirdetései
- Apple iPhone 14 Pro Max / 128GB / Független / 12Hó Garancia / Akku: 100% / Kijelző utángyártott
- Lenovo X280 12" - i7 8550U, 16GB RAM, 256-512GB SSD, jó akku - számla, 6 hó gar
- Corsair VENGEANCE RGB PRO 16GB (2x8GB) DDR4 3200MHz CMW16GX4M2Z3200C16
- ÚJ Bontatlan Sony Bravia K-65XR90 - 4K HDR Google Mini LED TV - 3 év garancia
- HIBÁTLAN iPhone 15 Pro 128GB Natural Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS4401
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
