Hallo,
Ik ben zou graag bij het uploaden van mijn ftp bestanden eerst willen controleren of het bestand bestaat en zo ja dan kijken naar de datum of het ouder is of gelijk. is het nieuwer dan zou het programma moeten overschrijven.
voorbeeld:
For each file in list
if dateSource > dateTarget then
upload file
end if
end loop
Wie wilt me helpen? al krijg ik maar een voorbeeld hoe ik van een bestand de datum krijg ben ik al goed geholpen
Alvast bedankt:thumb:
ik heb het upload gedeelte al en hoe je een lijst krijgt:
'lijst
Dim fwr As FtpWebRequest = FtpWebRequest.Create("ftp://192.168.1.61")
fwr.Credentials = New NetworkCredential("1", "1")
fwr.Method = WebRequestMethods.Ftp.ListDirectory
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
Dim str As String = sr.ReadLine()
While Not str Is Nothing
Console.WriteLine(str)
str = sr.ReadLine()
End While
sr.Close()
sr = Nothing
fwr = Nothing
'upload
My.Computer.Network.UploadFile("c:\myfile.txt", "ftp://hostname/myfile2.txt", "user", "pass")
Ik ben zou graag bij het uploaden van mijn ftp bestanden eerst willen controleren of het bestand bestaat en zo ja dan kijken naar de datum of het ouder is of gelijk. is het nieuwer dan zou het programma moeten overschrijven.
voorbeeld:
For each file in list
if dateSource > dateTarget then
upload file
end if
end loop
Wie wilt me helpen? al krijg ik maar een voorbeeld hoe ik van een bestand de datum krijg ben ik al goed geholpen
Alvast bedankt:thumb:
ik heb het upload gedeelte al en hoe je een lijst krijgt:
'lijst
Dim fwr As FtpWebRequest = FtpWebRequest.Create("ftp://192.168.1.61")
fwr.Credentials = New NetworkCredential("1", "1")
fwr.Method = WebRequestMethods.Ftp.ListDirectory
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
Dim str As String = sr.ReadLine()
While Not str Is Nothing
Console.WriteLine(str)
str = sr.ReadLine()
End While
sr.Close()
sr = Nothing
fwr = Nothing
'upload
My.Computer.Network.UploadFile("c:\myfile.txt", "ftp://hostname/myfile2.txt", "user", "pass")
