Hirdetés
Legfrissebb anyagok
LOGOUT témák
- petipetya: Nagy chili topic. :)
- Luck Dragon: Asszociációs játék. :)
- Andras-G: #Kószagondolat - eMag tapasztalatok 2026-ban
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Magga: PLEX: multimédia az egész lakásban
- eBay-es kütyük kis pénzért
- Luck Dragon: MárkaLánc
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
PROHARDVER! témák
Mobilarena témák
IT café témák
Keresés
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
- One otthoni szolgáltatások (TV, internet, telefon)
- Gyúrósok ide!
- petipetya: Nagy chili topic. :)
- Napelem
- Válságmódban a Samsung mobildivíziója
- Az Intel szerint mindenkit érint, illetve érinteni fog a CPU-hiány
- PlayStation 5
- Kész rémálom lesz Linuxot használni jövőre az USA egyes államaiban
- A fociról könnyedén, egy baráti társaságban
- Xiaomi 17 Ultra - jó az optikája
- További aktív témák...
Új fizetett hirdetések
- Honor Pad X9a 128GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi Redmi Note 12 Pro 5G, Kártyafüggetlen, 1 Év Garanciával
- GIGABYTE RX 9070 XT 16GB GDDR6 GAMING OC ICE - Új, 2 év gari - Eladó!
- Xiaomi Redmi Note 12 Pro+ 256GB, Kártyafüggetlen, 1 Év Garanciával
- Gigabyte G5 MF5 15.6" FHD IPS i7-13620H RTX 4050 16GB 1TB NVMe magyar vbill gar
Üzleti előfizetők hirdetései
- Apple iPhone 13 128GB,Átlagos,Dobozaval,12 hónap garanciával
- Samsung Galaxy A52s 5G / 6/128GB / Kártyafüggetlen / 12Hó Garancia
- ÚJ Lenovo Yoga 7 - 14" WUXGA OLED - Intel Ultra 5 226V - 16GB - 512GB - Win11 -3 év gari - HUN - PEN
- BESZÁMÍTÁS! LENOVO Legion 5 Pro 16ACH6H notebook - R7 5800H 16GB DDR4 512GB SSD RTX 3070 8GB
- Telefon felvásárlás!! Samsung Galaxy A20e/Samsung Galaxy A40/Samsung Galaxy A04s/Samsung Galaxy A03s
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
