Legfrissebb anyagok
LOGOUT témák
- Szoszo94: Xiaomi Mi Router 3G - Padavanra fel!
- gban: Ingyen kellene, de tegnapra
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- btz: Internet fejlesztés országosan!
- antikomcsi: Celebtanya - Farm VIP V.
- Luck Dragon: Asszociációs játék. :)
- Bevezetés a wokok világába
- sziku69: Fűzzük össze a szavakat :)
- weiss: Pant* rant
PROHARDVER! témák
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
mezis
félisten
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
Új hozzászólás Aktív témák
Aktív témák
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Eurós árlista a Google Pixel 10 telefonokhoz
- Xbox tulajok OFF topicja
- Nem indul és mi a baja a gépemnek topik
- Milyen SSD-t vegyek?
- Építő/felújító topik
- Autós topik
- Iszonyatos mennyiségű hulladékkal járhat a Windows 10 terméktámogatásának vége
- Milyen belső merevlemezt vegyek?
- TCL LCD és LED TV-k
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- HP Omen - 27" IPS - UHD 4K - 144Hz 1ms - NVIDIA G-Sync - FreeSync - HDR 400 - USB-C - KVM Switch
- AKCIÓ! Gigabyte B450M R7 2700X 16GB DDR4 512GB SSD RX VEGA64 8GB CM 690 III FSP 600W
- ViewSonic VG700b monitor 17" 1280 1024 DSUB, DVI, beépített hangszórókkal
- Bomba ár! HP EliteBook 2560P - i5-2GEN I 4GB I 320GB I 12,5" HD I W10 I Garancia!
- Beszámítás! Sony PlayStation 5 825GB SSD lemezes konzol extra kontrollerrel garanciával hibátlan
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest