Diese Webseite nutzt Cookies

Diese Webseite nutzt Cookies zur Verbesserung des Erlebnisses unserer Besucher. Indem Sie weiterhin auf dieser Webseite navigieren, erklären Sie sich mit unserer Verwendung von Cookies einverstanden.

Einige dieser Cookies sind technisch zwingend notwendig, um gewissen Funktionen der Webseite zu gewährleisten.

Darüber hinaus verwenden wir einige Cookies, die dazu dienen, Informationen über das Benutzerverhalten auf dieser Webseite zu gewinnen und unsere Webseite auf Basis dieser Informationen stetig zu verbessern.

MENU-1 ###MENU-2###MENU-2 ###MENU-3###MENU-3 ###MENU-4###MENU-4 ###MENU-5###MENU-5 ###MENU-6###MENU-6 ###MENU-7###MENU-7 ###MENU-8###MENU-8
###CONTENT-MENU### ###SUBTITEL###

Dateinamen eines Ordners aufzählen

nachste_Zeile = 1

Set FS = CreateObject("Scripting.FileSystemObject")
Set Folder = FS.GetFolder("D:\ordner")

For Each File In Folder.Files

'If File.Name Like "*.txt" Then
'  'mach was mit dem File
'End If
'Cells(nachste_Zeile, 1) = File.Name
'nachste_Zeile = nachste_Zeile + 1
Next

 

 

 

###ELEMENT_TEST### ###LAYOUT###
###RECHTS### ###ANMELDUNG###
###POWERED###