Downgeloadete Txt-Dateien in sav umbenennen

Trainee

Monday, March 2nd 2009, 7:07am

Downgeloadete Txt-Dateien in sav umbenennen

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:

VisualBasic 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ß

Koljan777

Professional

Posts: 216

Sunday, March 8th 2009, 4:40pm

warum "_sav"?

muss das nicht ein ".sav" sein?

fredipedri

Trainee

Posts: 8

Monday, March 9th 2009, 8:49am

ja es muss .sav sein.
es funktioniert ja auch auf dem lokalen Rechner.
Doch auf einem Server eben nicht.
Ich habe mich mal schlau gemacht und es müsste mit einer Shell gehen. habe auch einen Code gefunden doch leider nur in vb 6.0.
Kann jemand von euch den Code in vb 2005 übersetzen?

Source code

'Transfer-Batch Einlagerung schreiben
PfadUndDatei = MdbPath & "FTPEIN.BAT"
Open PfadUndDatei For Output As #1
InpRcd = "@echo off"
Print #1, InpRcd
InpRcd = " "
Print #1, InpRcd
InpRcd = "ftp -s:" & Trim(MdbPath) & "ftpein.ftp " & Trim(txt_UPing) & " | find " & Chr$(34) & "226" & Chr$(34) & ">NUL"
Print #1, InpRcd
InpRcd = "IF ERRORLEVEL 1 goto end"
Print #1, InpRcd
InpRcd = " "
Print #1, InpRcd
InpRcd = ":end"
Print #1, InpRcd
InpRcd = "exit"
Print #1, InpRcd
Close #1

'Transfer-Script Einlagerung schreiben
Textdatei = "Test1.txt“
Savdatei = "Test1.sav“
PfadUndDatei = MdbPath & "FTPEIN.FTP"
Open PfadUndDatei for Output As #1
InpRcd = Trim(txt_UUser)
Print #1, InpRcd
InpRcd = Trim(txt_UPass)
Print #1, InpRcd
InpRcd = "ascii"
Print #1, InpRcd
InpRcd = "get “ & Trim(Textdatei) & " "  & Trim(DataPath) & Trim(Textdatei)
Print #1, InpRcd
InpRcd = "ren " & Trim(Textdatei) & “ “ & Trim(Savdatei)
Print #1, InpRcd
InpRcd = "quit"
Print #1, InpRcd
Close #1

Ergebnis = Shell(MdbPath & "FTPEIN.BAT, vbHide)