Ich versuche einen automatisierten uploader für meinen server zu schreiben, es wird angezeigt das der datenstrom bei erneuter initierung des uploads nicht lesbar ist... Könnt ihr mir da weiterhelfen ?
Der Fehler tritt in der 19ten zeile auf.
Ich hoffe wir finden schnell eine lösung
Der Fehler tritt in der 19ten zeile auf.
VB.NET-Quellcode
- Imports System.Net
- Imports System.IO
- Public Class Form1
- Dim dir As String = "D:\XAMPPmm\htdocs\CURL"
- Dim ftpdir As String = "***"
- Dim SER_REQ_FTP As FtpWebRequest = DirectCast(WebRequest.Create(ftpdir), FtpWebRequest)
- Dim current As String
- Dim current_map() As String
- Dim flist As New HashSet(Of String)
- Dim dlist As New HashSet(Of String)
- Dim bPath As String = Application.StartupPath & "\FTPCONNECTOR.bat"
- Dim dPath As String = Application.StartupPath & "\FTPDATA.ftp"
- Dim stream As IO.StreamWriter = New IO.StreamWriter(dPath, False)
- Dim reader As StreamReader
- Dim rstream As Stream
- Dim response As FtpWebResponse
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- reader = SER_REQ_FTP.GetResponse()
- rstream = response.GetResponseStream()
- response = New StreamReader(rstream) 'Hier tritt der fehler auf.
- While Not reader.EndOfStream
- current = reader.ReadLine()
- If Not current = ".htaccess" Then
- If Not current = ".." Then
- flist.Add(current)
- End If
- End If
- RichTextBox1.Text += "DETECTET FILE:" & current & vbNewLine
- End While
- RichTextBox1.Text += "DELITING FILES..." & vbNewLine
- RichTextBox1.Text += "writing ftp data..." & vbNewLine
- stream.WriteLine("***")
- stream.WriteLine("***")
- stream.WriteLine("***")
- stream.WriteLine("cd ***")
- For Each Item As String In flist
- stream.WriteLine("DELE " & Item)
- RichTextBox1.Text += "targeting: " & Item & vbNewLine
- Next
- stream.WriteLine("QUIT")
- stream.Close()
- RichTextBox1.Text += "writing exec data..." & vbNewLine
- stream = New IO.StreamWriter(bPath, False)
- stream.WriteLine("ftp -s:FTPDATA.ftp")
- stream.WriteLine("exit")
- stream.Close()
- RichTextBox1.Text += "deleting files..." & vbNewLine
- Shell(bPath, AppWinStyle.Hide)
- RichTextBox1.Text += "Files Deletet." & vbNewLine
- RichTextBox1.Text += "UPDATING." & vbNewLine
- current_map = IO.Directory.GetFiles(dir)
- For Each Item As String In current_map
- RichTextBox1.Text += "Detected File :" & Item & vbNewLine
- dlist.Add(Item)
- RichTextBox1.Text += "Detected File :" & Item & "added in list" & vbNewLine
- Next
- RichTextBox1.Text += "Init Upload:" & vbNewLine
- stream = New IO.StreamWriter(dPath, False)
- stream.WriteLine("open ***")
- stream.WriteLine("***")
- stream.WriteLine("****")
- stream.WriteLine("cd ***")
- For Each Item As String In dlist
- stream.WriteLine("put " & Item)
- RichTextBox1.Text += "targeting: " & Item & vbNewLine
- Next
- stream.WriteLine("QUIT")
- stream.Close()
- RichTextBox1.Text += "Upload..." & vbNewLine
- Shell(bPath, AppWinStyle.Hide)
- RichTextBox1.Text += "Done..." & vbNewLine
- RichTextBox1.Text += "Reset Connections..." & vbNewLine
- response.Close()
- rstream.Close()
- reader.Close()
- RichTextBox1.Text += "Done Ready to move on..." & vbNewLine
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- SER_REQ_FTP.Credentials = New NetworkCredential("***", "***")
- SER_REQ_FTP.Method = WebRequestMethods.Ftp.ListDirectory
- End Sub
- End Class
Ich hoffe wir finden schnell eine lösung
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „AzeS“ ()