Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
GAMEPOD.hu témák
Keresés
Új hozzászólás Aktív témák
-
mezis
nagyúr
Bocs, most jöttem rá, hogy lehet programkódot is beilleszteni:
Function listFiles(strFolder)
If objFileSystem.FolderExists(strFolder) Then
Set objFolder = objFileSystem.GetFolder(strFolder)
For Each objFile In objFolder.Files
objCsvFile.Write objFile.Name & ";" & objFolder.Path & vbNewLine
Next
For Each objSubFolder In objFolder.SubFolders
listFiles objSubFolder.path
Next
Else
MsgBox "A megadott " & strFolder & "mappa nem létezik !"
End If
End Function[ Szerkesztve ]
mezis
Új hozzászólás Aktív témák
Aktív témák
- Samsung Galaxy Felhasználók OFF topicja
- Steam topic
- Apple iPhone 13 - hízott, de jól áll neki!
- Milyen okostelefont vegyek?
- Androidos tablet topic
- Anime filmek és sorozatok
- Késik a következő S24 Ultra kamerafrissítés?
- VR topik (Oculus Rift, stb.)
- Le Mans Ultimate
- Poco F5 - pokolian jó ajánlat
- További aktív témák...
Új prémium hirdetések
- 1.250.000 FT helyett 940.000 FT !! MacBook Pro 16" M3 Pro 12CPU / 18GPU / 18GB / 512 SSD
- RTX 2080TI ROG STRIX GAMER PC
- AKCIÓ !! M3 Chip - MacBook Pro 14" 8C CPU / 10C GPU / 8 GB/ 1 TB / Bontatlan / Magyar
- Tidradio td-h3 akkumulátor
- HP ZBook Studio x360:i7 9850H,32GB,512GB,P2000,15.6" UHD 3840x2160 TOUCH 600nit 100%AdobeRGB,HP gari