- Az Xbox Series X|S konzolnak három új verziója jön idén
- Milyen TV-t vegyek?
- Azonnali VGA-s kérdések órája
- Samsung QN800D: Neo QLED 8K tévét teszteltünk
- Gaming notebook topik
- Computex 2024: Íme a Project NeonStorm
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Léghűtés topik
- HiFi műszaki szemmel - sztereó hangrendszerek
- iPad topik
Hirdetés
-
Megjelenési dátumot kapott a Conscript
gp Az I. Világháborús horror játék jövő hónapban érkezik.
-
Olcsó USB WiFi AC adapter
lo Egy olcsó WiFi AC USB adapter jó szolgálatot jelenthet, ha az új router csak elvileg támogatja a 2,4 GHz-es átvitelt.
-
Az AI miatt vehetnek sokan új iPhone-t
it Nagyon sokan régóta nem vettek új iPhone-t – találgatnak az elemzők, hogy az Apple Intelligence miatt rohannak-e majd az emberek új Apple mobilt vásárolni.
-
PROHARDVER!
Ajánlott ingyenes Windows programok
Androidos kérdéssel irány az Android alkalmazások topik!
Új hozzászólás Aktív témák
-
lúzer
veterán
válasz Kazimír #4269 üzenetére
Tessék, csináltam egyet:
ezt egy vbs fájlba, a mappába CSAK az átnevezendő fájlok kerüljenek, és csak mp3 pl. szóval ne variáld a kiterjesztéseket.
Mikor kéri a mappát, kell a végén a \ karakter tehát pl: F:\001\Dim Input, ujnev, fso, f, f1, fc, s,vv, kiterj
Input = InputBox("meghajtó és mappa?.....","Na!")
kiterj = InputBox("kiterjesztés mi legyen?.....","Na!")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Input)
Set fc = f.Files
For Each f1 in fc
vv = vv + 1
'Wscript.Echo f1.name
ujnev = Right( Left(CreateObject("Scripting.FileSystemObject").GetTempName, 8) , 5) & "." & kiterj
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile Input & f1.name , Input & ujnev
NextMO. RIP. - az utolsó kapcsolja le a villanyt.
-
lúzer
veterán
válasz Kazimír #4269 üzenetére
Itt az 1.05 verzió, békénhagyja a kiterjesztést:
Dim Input, ujnev, fso, f, f1, fc, s,vv
Input = InputBox("meghajtó és mappa?.....","Na!")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Input)
Set fc = f.Files
For Each f1 in fc
vv = vv + 1
ujnev = Right( Left(CreateObject("Scripting.FileSystemObject").GetTempName, 8) , 5)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile Input & f1.name , Input & ujnev & f1.name
NextMO. RIP. - az utolsó kapcsolja le a villanyt.
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Steam kulcsok - UTALÁS/REVOLUT
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen