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.178 mal aufgerufen.
Anzeige
![]() ![]() ![]() (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! sevCoolbar 3.0 ![]() Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. Access-Tools Vol.1 ![]() Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |