omdøb filer i dir

Er det ingen som kan klare dette script ?

Option Explicit

Private mlngfileCount
Call Command1_Click

Private Sub Command1_Click()
    Dim strPath, strFind
    Dim objFSO
    Dim objFolder

    strPath = InputBox("Enter startpath:", , "C:\scripts")
   
    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
End Sub

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
            'strFolder = Len(objDocFile.path) - Len(objDocFile.name)
            'wscript.echo  left(objDocFile.Path, strFolder) & objDocFile.Name
            wscript.echo objDocFile.Path & vbcrlf & objDocFile.ParentFolder & "\" & objFolder.name & " - " & objDocFile.Name
            objFSO.MoveFile objDocFile.Path, objDocFile.ParentFolder & "\" & objFolder.name & " - " & objDocFile.Name
            mlngfileCount = mlngFileCount + 1
        End If
    Next
   
    For Each objSubFolder In objFolder.SubFolders
        Call ReplaceFileNameInFolder(objFSO, objSubFolder, strFind)
    Next
End Sub

Jeg håber det fungere som du gerne vil have det til....
Hvis ikke skal jeg nok hjælpe med at rette til så den fungere som du ønsker...

Var det noget du kunne bruge eller var det helt ubrugeligt ???

Tak morten, jeg har først set dit svar nu.

Det er næsten korrekt, følgende håber jeg du kan ændre:
1) den skal tage ALLE filer i ALLE sub dirs, og rename.

Kan du klare det ?

He he det burde da være det mindste (udemiddelbart synes jeg du selv lige skulle prøve at se om det virker for jeg ikke tid til at teste det...)
Men hvis du sætter ' omkring if sætningen så får du alle...
ergo sådan her:
'If UCase(objFSO.GetExtensionName(objDocFile.Path)) = "TXT" Then
'End If

Prøv det...

jeg kom ikke videre med det, men du for point morten_leth.