FTP programma in VB2010

[BrouwerB]

Hallo,

Ik heb in VB2010 een programma geschreven welke om de minuut naar een ftp adres een aantal files upload naar mijn website.
Sinds 16 feb lukt dit niet meer omdat de KPN iets veranderd heeft. Support daar is knudde en ze verwachter hier op korte termijn niets aan te kunnen doen.
Via bijvoorbeeld Dreamweaver lukt het wel maar deze upload mijn nieuwe files niet automatisch.



Wellicht heeft iemand een goed idee om dit met VB2010 op te lossen.
Ik wil dit met mijn eigen programma doen en dus niet met een ander programma

Programma ziet er als volgt uit

Dim clsRequest1 As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://xxx.xx.xx.xx/wwwroot/positie.xml"), System.Net.FtpWebRequest)
clsRequest1.Credentials = New System.Net.NetworkCredential("username", "password")
clsRequest1.Method = System.Net.WebRequestMethods.Ftp.UploadFile

' read in file...
Dim bFile1() As Byte = System.IO.File.ReadAllBytes(file1)

' upload file...
Dim clsStream1 As System.IO.Stream = clsRequest1.GetRequestStream()
clsStream1.Write(bFile1, 0, bFile1.Length)
clsStream1.Close()
clsStream1.Dispose()

 

[JoZ1]

[cpp]Try
My.Computer.UploadFile("C:\positie.xml","ftp://xxx.xx.xx.xx/wwwroot/positie.xml","Gebruikersnaam","Wachtwoord")
Catch ex As Exception
''// Fouten afhandelen
End Try[/cpp]

Zoiets misschien?

 

[BrouwerB]

Bedankt voor de suggestie. Ik ben er achter gekomen wat KPN aangepast heeft.
Door de FTP verbinding actief te maken doet i het wel.
Heeft me een maand gekost voor dat ik erachter kwam.
In iedergeval bedankt voor het meedenken.

Oplossing:

clsRequest1.UsePassive = False

Standaard stat deze passief in VB

 

[JoZ1]

Prima

Zet je de vraag even op opgelost?

 

[BrouwerB]

Hoe kan ik dat doen

 

[JoZ1]

Rechtsonderin je eerste post: Zet status opgelost.