Existiert Datei auf Server?

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von kevin89.

    Existiert Datei auf Server?

    Hallo,
    ich habe durch die Forumsuche schon ein funktionierendes Beispiel gefunden.
    Leider funktioniert das über das HTTP.
    Dadurch komme ich in manche Ordner nicht rein.
    Bräuchte was, das mit dem FPT arbeitet....

    kann VcJunk zustimmen :). Das kannst du mit FTPWebRequest machen, da gibt es tausende Tutorials.

    Mal so nebenbei: hast du schonmal was von so was was sich Google nennt gehört? Anscheinend nicht, oder du bist einfach zu blöd um es zu benutzen. Da gibt es genügend Tutorials.

    So, ich habe das jetzt hinbekommen:

    VB.NET-Quellcode

    1. Public Function FileExists(ByVal FilePath As String) As Boolean
    3. Dim req As FtpWebRequest = DirectCast(WebRequest.Create(FilePath), FtpWebRequest)
    5. req.Credentials = New NetworkCredential("UserName", "Password")
    7. req.Method = WebRequestMethods.Ftp.ListDirectoryDetails
    11. Try
    13. Dim resp As FtpWebResponse = DirectCast(req.GetResponse, FtpWebResponse)
    15. resp.Close()
    17. ' File exist
    18. MsgBox("Da")
    20. Catch ex As Exception
    22. ' File doesn’t exist
    23. MsgBox("nix da")
    24. End Try
    26. End Function

    Wo muss da jetzt die Adresse hin? Also das "ftp://www.meineseite.de/meinedatei.txt".
    Wie kann ich die Funktion aufrufen.
    Kann ich es auch in eine Sub reinmachen?

    Naja, du kannst überprüfen, ob es eine Datei auf dem Server gibt.
    Das ist aber glaub ich uninteressant...:)

    EDDIT::
    Wohl dioch nicht so einfach:

    VB.NET-Quellcode

    1. Private Sub testen()
    3. Dim req As FtpWebRequest = DirectCast(WebRequest.Create("ftp://www.meineseite.de/meinedatei.txt"), FtpWebRequest)
    5. req.Credentials = New NetworkCredential("Username", "passwort")
    7. req.Method = WebRequestMethods.Ftp.ListDirectoryDetails
    11. Try
    13. Dim resp As FtpWebResponse = DirectCast(req.GetResponse, FtpWebResponse)
    15. resp.Close()
    17. ' File exist
    18. MsgBox("Da")
    20. Catch ex As Exception
    22. ' File doesn’t exist
    23. MsgBox("nix da")
    24. End Try
    26. End Sub

    GEht leider nicht.
    Es zeigt immer an das das die datei existiert, obwohl sie das nicht tut ....

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

    Hallo Turbine,

    versuch es mal hiermit:

    VB.NET-Quellcode

    1. Dim request As Net.FtpWebRequest = Net.FtpWebRequest.Create("Link zum FTP-Ordner")
    2. request.Method = Net.WebRequestMethods.Ftp.ListDirectory
    3. request.Credentials = New Net.NetworkCredential("Benutzername", "Passwort")
    4. Dim response As Net.FtpWebResponse = request.GetResponse()
    5. Using myReader As New IO.StreamReader(response.GetResponseStream())
    6. Dim name as String
    7. Do While myReader.EndOfStream = False
    8. name = myReader.ReadLine ()
    9. If name = "Dateiname" Then
    10. MsgBox ("Da")
    11. Else
    12. MsgBox ("nicht da")
    13. End If
    14. Loop
    15. End Using



    Grüße,

    viperkill

Facebook
Telefonspende