Diese Seite ist unverschlüsselt! Um sicherzustellen, das Ihr Passwort nicht ausgelesen werden kann, sollten Sie auf die verschlüsselte Seite wechseln!

    Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Downgeloadede Txt-Dateien in sav umbenennen
Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
02.03.2009, 07:25 Uhr
fredipedri



 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:




Visual Basic:
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ß
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
09.03.2009, 08:52 Uhr
~OLLI
Gast


Hallo mit diesem Code müsste es gehen.. es ist in vb 6.0 geschreiben.
vielleicht kann ihn dir ja jemand in vb 2005 übersetzten..
ich kann es leider nicht.


Visual Basic:
'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)
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: