Downgeloadete Txt-Dateien in sav umbenennen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • 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:

    Quellcode

    1. Dim oFile As System.IO.FileInfo
    2. Dim sPath As String
    3. sPath = "\\Server\Test\"
    4. ' Directory-Object erstellen
    5. Dim oDir As New System.IO.DirectoryInfo(sPath)
    6. Dim oFiles As System.IO.FileInfo()
    8. ' alle Dateien des Ordners
    9. oFiles = oDir.GetFiles("*.txt")
    10. For Each oFile In oFiles
    11. IO.File.Move(oFile.FullName, oFile.FullName & "_sav")
    12. Next
    13. End If
    Alles anzeigen


    Bittte um Hilfe.
    Gruß

  • 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?

    Quellcode

    1. 'Transfer-Batch Einlagerung schreiben
    2. PfadUndDatei = MdbPath & "FTPEIN.BAT"
    3. Open PfadUndDatei For Output As #1
    4. InpRcd = "@echo off"
    5. Print #1, InpRcd
    6. InpRcd = " "
    7. Print #1, InpRcd
    8. InpRcd = "ftp -s:" & Trim(MdbPath) & "ftpein.ftp " & Trim(txt_UPing) & " | find " & Chr$(34) & "226" & Chr$(34) & ">NUL"
    9. Print #1, InpRcd
    10. InpRcd = "IF ERRORLEVEL 1 goto end"
    11. Print #1, InpRcd
    12. InpRcd = " "
    13. Print #1, InpRcd
    14. InpRcd = ":end"
    15. Print #1, InpRcd
    16. InpRcd = "exit"
    17. Print #1, InpRcd
    18. Close #1
    20. 'Transfer-Script Einlagerung schreiben
    21. Textdatei = "Test1.txt“
    22. Savdatei = "Test1.sav“
    23. PfadUndDatei = MdbPath & "FTPEIN.FTP"
    24. Open PfadUndDatei for Output As #1
    25. InpRcd = Trim(txt_UUser)
    26. Print #1, InpRcd
    27. InpRcd = Trim(txt_UPass)
    28. Print #1, InpRcd
    29. InpRcd = "ascii"
    30. Print #1, InpRcd
    31. InpRcd = "get “ & Trim(Textdatei) & " " & Trim(DataPath) & Trim(Textdatei)
    32. Print #1, InpRcd
    33. InpRcd = "ren " & Trim(Textdatei) & “ “ & Trim(Savdatei)
    34. Print #1, InpRcd
    35. InpRcd = "quit"
    36. Print #1, InpRcd
    37. Close #1
    39. Ergebnis = Shell(MdbPath & "FTPEIN.BAT, vbHide)
    Alles anzeigen