Hallo !
Ich bin ein VB-Neuling und brauche eure geschätzte Hilfe.
Es geht um folgende Situation:
Auf einem Rechner soll durch Ausführen eines Programmes alle Dateien aus einer Verzeichnisstruktur zu einem FTP Server übertragen werden, welche die Endung .xls haben.
Ein Programm zu Erstellen, womit man einzelne, fest definierte Dateien per FTP verschicken kann ist nicht das Problem. Das Problem ist, das das Programm beim Ausführen a) ein definiertes Verzeichnis und dessen Unterverzeichnise rekursiv durchsuchen soll und alle .xls Dateien darin auf den FTP Server überträgt.
Hat jemand Erfahrung darin ? Wie umständlich ist solch eine Suche und die Übertragung zu realisieren ?
Eine einzelne, definierte Datei lässt sich ja leicht durch solch einen Code übertragen:
Jemand eine Idee ? Wie bekomm ich das hin das z.b. aus dem Verzeichnis "d:\Wirtschaftsbericht\" und allen darin enthaltenen Unterverzeichnissen die Dateien mit der Endung .xls gesucht werden und einzeln übertragen ?
Ich bin ein VB-Neuling und brauche eure geschätzte Hilfe.
Es geht um folgende Situation:
Auf einem Rechner soll durch Ausführen eines Programmes alle Dateien aus einer Verzeichnisstruktur zu einem FTP Server übertragen werden, welche die Endung .xls haben.
Ein Programm zu Erstellen, womit man einzelne, fest definierte Dateien per FTP verschicken kann ist nicht das Problem. Das Problem ist, das das Programm beim Ausführen a) ein definiertes Verzeichnis und dessen Unterverzeichnise rekursiv durchsuchen soll und alle .xls Dateien darin auf den FTP Server überträgt.
Hat jemand Erfahrung darin ? Wie umständlich ist solch eine Suche und die Übertragung zu realisieren ?
Eine einzelne, definierte Datei lässt sich ja leicht durch solch einen Code übertragen:
VB.NET-Quellcode
- Private Function FTPUpload() As Boolean
- Try
- Dim sLocalFile As String = "Hier der Pfad zur Datei die Hochgeladen werden soll"
- Dim sFTPHost As String = "ftp://Der FTP Pfad..."
- Dim sUserName As String = "Benutzername"
- Dim sPassword As String = "Passwort"
- My.Computer.Network.UploadFile(sLocalFile, sFTPHost, sUserName, sPassword)
- Catch ex As Exception
- MsgBox("Fehler FTP Upload")
- End Try
- End Function
Jemand eine Idee ? Wie bekomm ich das hin das z.b. aus dem Verzeichnis "d:\Wirtschaftsbericht\" und allen darin enthaltenen Unterverzeichnissen die Dateien mit der Endung .xls gesucht werden und einzeln übertragen ?
