FTP Zugriff

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von MarcoIT.

    FTP Zugriff

    Moinsen Zusammen ;),

    ich sitze gerade daran, ein FTP-Zugriff mit Upload und Download zu basteln. Davor wird ein Dokument eingecannt, dass dann verwendet werden kann.
    Jetzt will ich auf dem FTP Server testen, ob die Datei vorhanden ist und wenn diese Datei bereits vorhanden ist, dann soll wie in Windows ein Count (1) (2) hochzählen lassen. Nun kommt´s: das große Problem besteht aber bisher darin, dass ich keinerlei FTP Funktionen kenne, die mir z.B. FileExist machen können. Kann mir jemand bitte sagen wie ich Dateien auf einem FTP auf Bestehen prüfen soll? Ich dachte vielleicht daran, nach dem Namen der gescannten Datei in dem Zielordner zu suchen und dann herunterzuladen und wenn das geklappt hat, soll er mir einen Erfolg zurück geben... Aber eine Datei zu prüfen, runterladen und dann noch eine andere Datei zum hochladen erscheint mir ein "wenig" umfangreich... Was meint Ihr gibt es da nicht was einfacheres?
    Hier noch mein Quellcode, damit Ihr Euch mal ein Bild machen könnt :D

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.IO.Directory
    3. Imports System.Net.WebRequestMethods
    5. Public Class Scanbutton
    7. 'Deklaration
    8. Dim ziel As String
    9. Dim user As String
    10. Dim pwd As String
    12. Dim datum As String
    13. Dim ofd As New OpenFileDialog
    14. Dim sfd As New SaveFileDialog
    15. Dim fso As System.Object
    17. Dim imagepfad As String
    18. Dim dialog As New WIA.CommonDialog
    19. Dim image As WIA.ImageFile = Nothing
    21. Dim i As String
    23. Private Declare Function GetTickCount Lib "kernel32" () As Long
    24. Private Const ConnectTimeOut = 30
    26. Private Sub Scanbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    28. 'Zugangsdaten
    29. user = ("username")
    30. pwd = ("passwort")
    32. i = 0
    33. fso = New Object
    34. 'Datum Formatierung
    35. datum = FormatDateTime(Now, DateFormat.ShortTime)
    36. datum = Replace(datum, " ", "_") ' leerzeichen durch unterstrich ersetzen
    37. datum = Replace(datum, ".", "") ' Punkte entfernen
    38. datum = Replace(datum, ":", "") ' Doppelpunkte entfernen
    41. MsgBox("Legen Sie ein Dokument in Ihren Scanner.")
    43. Try
    44. image = dialog.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, , , , False, )
    45. Catch ex As Exception
    46. MsgBox("Ein Fehler ist aufgetreten! Überprüfen Sie ob das Gerät Eingeschaltet und angeschlossen ist." & Environment.NewLine & Environment.NewLine & ex.Message)
    47. End
    48. End Try
    50. If Not image Is Nothing Then
    51. imagepfad = ("C:\Scanbilder\")
    53. If FileExists(imagepfad + "img_" + datum + ".jpg") Then
    54. i = i + 1
    55. image.SaveFile(imagepfad + "img_" + datum + "_" + i + ".jpg")
    56. Else
    57. image.SaveFile(imagepfad + "img_" + datum + ".jpg")
    58. End If
    60. Else
    61. MsgBox("Es wurde kein Bild erfasst!", MsgBoxStyle.Information, "Information")
    62. End
    63. End If
    65. ofd.InitialDirectory = "C:\Scanbilder\"
    66. ofd.Filter = "Gescannte Dokumente (*.jpg)|*.jpg"
    67. ofd.Title = "Datei zum Öffnen auswählen"
    69. If ofd.ShowDialog() = DialogResult.OK Then
    70. MsgBox("Datei wurde ausgewählt.")
    71. Else
    72. MsgBox("Abbruch durch User.")
    73. End
    74. End If
    76. Dim webclient As New Net.WebClient
    77. webclient.Credentials = New Net.NetworkCredential(user, pwd)
    79. ziel = ("ftpserver/ftpsonstige/Scanbilder/")
    80. Dim request As Net.FtpWebRequest = Net.FtpWebRequest.Create(ziel)
    81. request.Method = Net.WebRequestMethods.Ftp.ListDirectory
    82. request.Credentials = New Net.NetworkCredential(user, pwd)
    84. Try
    85. request.GetResponse()
    86. MsgBox("Connected")
    87. Catch ex As Exception
    88. MsgBox("Kein Connect")
    89. Close()
    90. End Try
    92. My.Computer.Network.DownloadFile(ofd.FileName, ofd.SafeFileName, user, pwd)
    94. If ftpfileExists(ziel) = True Then
    95. ziel = ("ftpserver/ftpsonstige/Scanbilder/" + ofd.SafeFileName)
    96. My.Computer.Network.UploadFile(ofd.FileName, ziel, user, pwd, True, 500)
    97. MsgBox("Erfolgreiches Hochladen!")
    98. End
    99. Else
    100. MsgBox("Der Zielordner zum Einfügen der gescannten Dokumente, ist nicht verfügbar.")
    101. MsgBox("Überprüfen Sie ob der Zielordner vorhanden ist.")
    102. End
    103. End If
    105. 'MsgBox("Die Datei ist bereits Vorhanden.")
    106. 'MsgBox("Es wird eine weiter Datei erstellt, mit der Erweiterung der aktuellen Uhrzeit.")
    107. 'ofd.FileName = datum + "_" + ofd.SafeFileName
    108. 'My.Computer.Network.UploadFile(ofd.FileName, ziel, user, pwd, True, 500)
    109. 'MsgBox("Erfolgreiches Hochladen!")
    110. 'End
    111. 'MsgBox("Die hochgeladene Datei heißt nun: " + ofd.FileName)
    112. 'Else
    113. 'MsgBox("Datei existiert nicht. Datei wird hochgeladen.")
    114. 'My.Computer.Network.UploadFile(ofd.FileName, ziel, user, pwd, True, 500)
    115. 'End If
    116. ' End If
    117. End Sub
    119. Public Function DirExists(ByVal OrigFolder As String)
    120. Dim fs
    121. fs = CreateObject("Scripting.FileSystemObject")
    122. DirExists = fs.folderexists(OrigFolder)
    123. End Function
    125. Private Function FileExists(ByVal FileName As String) As Boolean
    126. On Error Resume Next
    127. FileExists = Not CBool(GetAttr(FileName) And (vbDirectory Or vbVolume))
    128. On Error GoTo 0
    129. End Function
    131. Private Function ftpfileExists(ByVal FileName As String)
    133. If (My.Computer.Network.IsAvailable = True) Then
    134. 'My.Computer.Network.DownloadFile(ofd.FileName, ofd.SafeFileName, user, pwd)
    135. MsgBox("Hat geklappt")
    136. Return (True)
    137. End
    138. Else
    139. MsgBox("Hat nicht geklappt")
    140. Return (False)
    141. End
    142. End If
    143. End Function
    145. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles einfacher_upload.Click
    147. MsgBox("Wählen Sie eine Datei aus, die Sie hochladen möchten.")
    148. upload()
    149. End Sub
    151. Private Function upload() As Action
    153. ofd.InitialDirectory = "C:\Scanbilder\"
    154. ofd.Filter = "Gescannte Dokumente (*.jpg)|*.jpg"
    155. ofd.Title = "Datei zum Öffnen auswählen"
    157. If ofd.ShowDialog() = DialogResult.OK Then
    158. MsgBox("Datei wurde ausgewählt.")
    159. Else
    160. MsgBox("Abbruch durch User.")
    161. End
    162. End If
    164. ziel = ("ftpserver/ftpsonstige/Scanbilder/")
    165. If ftpfileExists(ziel) = True Then
    166. ziel = ("ftpserver/ftpsonstige/Scanbilder/" + ofd.SafeFileName)
    167. My.Computer.Network.UploadFile(ofd.FileName, ziel, user, pwd, True, 500)
    168. MsgBox("Erfolgreiches Hochladen!")
    169. End
    170. Else
    171. MsgBox("Der Zielordner zum Einfügen der gescannten Dokumente, ist nicht verfügbar.")
    172. MsgBox("Überprüfen Sie ob der Zielordner vorhanden ist.")
    173. End
    174. End If
    176. End Function
    177. End Class

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „MarcoIT“ ()

    *Unnötiges Vollzitat entfernt*

    Danke dir! Habe deinen "alten" Thread gelesen mit FTP Übergabe.
    Kann dort aber leider nicht antworten deshalb antworte ich dir mal hier:
    Die von dir verwendete funktionen funktionieren nur auf lokalen pfaden. deswegen hat der ftp zugriff nicht funktioniert und das selbe problem habe ich auch

    Quelle: [VB 2008] OpenFileDialog mit FTP pfad öffnen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende