Thema Datum  Von Nutzer Rating
Antwort
25.01.2018 12:42:53 Schoki
NotSolved
Blau Umbenennen von mehreren dateien in einem Ordner
29.01.2018 23:19:44 Uwe
NotSolved

Ansicht des Beitrags:
Von:
Uwe		 Datum:
29.01.2018 23:19:44		 Views:
474		 Rating:
     
Antwort:
  Ja
Thema:
Umbenennen von mehreren dateien in einem Ordner

Hallo,

probiers mal so:

Sub umbenennen()
Dim strDateiName As String
Dim strVerzeichnis As String
Dim strDateiNameNeu As String
Dim fso As Object, f1 As Object

Set fso = CreateObject("Scripting.FileSystemObject")

    strVerzeichnis = "c:\tmp\test\"     'anpassen, Backslash am Ende!
    strDateiName = Dir$(strVerzeichnis & "*Messdaten*.*")

    Do While strDateiName <> ""
        strDateiNameNeu = Replace(strDateiName, "Messdaten", "Test")
        Set f1 = fso.GetFile(strVerzeichnis & strDateiName)
        f1.Move (strVerzeichnis & strDateiNameNeu)
    
        strDateiName = Dir$()
    Loop

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.01.2018 12:42:53 Schoki
NotSolved
Blau Umbenennen von mehreren dateien in einem Ordner
29.01.2018 23:19:44 Uwe
NotSolved