Heute zeigen wir Ihnen, wie man per Funktionsaufruf ein Verzeichnis beliebiger Tiefe (verschachteltes Verzeichnis) auf dem FTP-Server erstellen kann. Imports System.Net ''' <summary> ''' Erstellt ein verschachteltes Verzeichnis auf einem FTP-Server ''' </summary> ''' <param name="Host">FTP-Server</param> ''' <param name="User">Benutzername für die Anmeldung</param> ''' <param name="Pwd">Passwort</param> ''' <param name="Path">Pfad, der erstellt werden soll</param> ''' <returns>True, wenn erfolgreich. Andernfalls False.</returns> Public Function FtpCreateDir(ByVal Host As String, _ ByVal User As String, _ ByVal Pwd As String, _ ByVal Path As String) As Boolean ' Sicherstellen, dass Host mit ftp:// beginnt If Not Host.EndsWith("/") Then Host &= "/" If Not Host.StartsWith("ftp://") Then Host = "ftp://" & Host If Path.StartsWith("/") Then Path = Path.Substring(1) ' Pfad rekursiv erstellen Dim curPath As String = "" Do Try ' aktueller Pfad If Path.IndexOf("/") >= 0 Then curPath &= Path.Substring(0, Path.IndexOf("/")) Path = Path.Substring(Path.IndexOf("/") + 1) Else curPath &= Path Path = "" End If curPath &= "/" ' FTP-Kommando zusammenstellen Dim oRequest As WebRequest = WebRequest.Create(Host & curPath) With oRequest .Method = WebRequestMethods.Ftp.MakeDirectory .Credentials = New NetworkCredential(User, Pwd) .Proxy = System.Net.WebRequest.DefaultWebProxy End With ' Kommando absenden Dim oResponse As WebResponse = oRequest.GetResponse() Catch ex As WebException ' Wenn bspw. die Anmeldung am FTP-Server gescheitert ist If ex.Status <> WebExceptionStatus.ProtocolError Then Return False Catch ex As Exception ' Bei anderen Fehlern Funktion ebenfalls verlassen Return False End Try Loop Until Path.Length = 0 Return True End Function Aufrufbeispiel: Dim bResult As Boolean = _ FtpCreateDir("host", "user", "pwd", "ordner/subordner1/subordner2") Dieser Tipp wurde bereits 13.072 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |