Udskriv unikke del-filnavne fra mappestruktur

Hvor mange filer vil der være - ca.?

Er der tale om en mappe med undermapper - eller?

Hey Samsayit

Jeg har ikke lige noget færdigt liggende i skuffen...

Men jeg har lidt som du nok kan bruge....
'Option Explicit

Private mlngfileCount

Dim strPath, strFind
Dim objFSO
Dim objFolder

strPath = InputBox("Enter startpath:", , "D:\Mappe1")

mlngfileCount = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)
Call ReplaceFileNameInFolder(objFSO, objFolder, strFind)
MsgBox "Find and change finished!" & vbCrLf & "Changed " & mlngfileCount, vbInformation


Sub ReplaceFileNameInFolder(objFSO, objFolder, strFind)
    Dim objDocFile
    Dim objSubFolder
    Dim objDoc
    Dim objHyperlink
    Dim blnChanged
    Dim strOldAddress
    Dim strNewAddress
    Dim StrFolder
   
    For Each objDocFile In objFolder.Files
        If UCase(objFSO.GetExtensionName(objDocFile.Path)) = "TXT" Then
            'renames the file
            wscript.echo objDocFile.Name
            mlngfileCount = mlngFileCount + 1
        End If
    Next
   
    For Each objSubFolder In objFolder.SubFolders
        Call ReplaceFileNameInFolder(objFSO, objSubFolder, strFind)
    Next
End Sub

Og supertekst, blot for lige at gøre opmærksom på han rent faktisk selv skriver at det skal være med undermapper.. :D