Hallo,
ich habe ein Problem.
Ich möchte alle in einem Ordner befindeten Text-Datein in .sav umbennen.
Der Name der Datei sollte erhalten bleiben.
Und ich möchte des auf einem Server umbennen.
Weiß jemand warum mein Code nicht funktioniert?
Hier mein Code:
Alles anzeigen
Bittte um Hilfe.
Gruß
ich habe ein Problem.
Ich möchte alle in einem Ordner befindeten Text-Datein in .sav umbennen.
Der Name der Datei sollte erhalten bleiben.
Und ich möchte des auf einem Server umbennen.
Weiß jemand warum mein Code nicht funktioniert?
Hier mein Code:
Quellcode
- Dim oFile As System.IO.FileInfo
- Dim sPath As String
- sPath = "\\Server\Test\"
- ' Directory-Object erstellen
- Dim oDir As New System.IO.DirectoryInfo(sPath)
- Dim oFiles As System.IO.FileInfo()
- ' alle Dateien des Ordners
- oFiles = oDir.GetFiles("*.txt")
- For Each oFile In oFiles
- IO.File.Move(oFile.FullName, oFile.FullName & "_sav")
- Next
- End If
Bittte um Hilfe.
Gruß