vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Programm hängt sich auf 
Autor: Novatlan
Datum: 23.01.06 22:16
Hallo!
Ich habe ein komisches Problem bei meiner Anwendung. Ich möchte prüfen, ob bestimmte Dateien auf einem Webspace vorhanden sind. Das habe ich mit If-Abfragen gelöst. Es müssen immer 5 verschiedenen Dateien auf ihre Existenz getestet werden.
Der Code lautet: 
        If Me.fileexists(source & ProgrammPrefix & versionnew & ".createdir") = _
          False Then
            MessageBox.Show("Die Updatedatei .createdir konnte nicht gefunden" & _
            "werden.", "Datei nicht gefunden", MessageBoxButtons.OK)
 
        ElseIf Me.fileexists(source & ProgrammPrefix & versionnew & ".addfile") _
          = False Then
            MessageBox.Show("Die Updatedatei .addfile konnte nicht gefunden" & _
            "werden.", "Datei nicht gefunden", MessageBoxButtons.OK)
 
        ElseIf Me.fileexists(source & ProgrammPrefix & versionnew & ".delfile") _
          = False Then
            MessageBox.Show("Die Updatedatei .delfile konnte nicht gefunden" & _
            "werden.", "Datei nicht gefunden", MessageBoxButtons.OK)
 
        ElseIf Me.fileexists(source & ProgrammPrefix & versionnew & ".deldir") _
          = False Then
            MessageBox.Show("Die Updatedatei .deldir konnte nicht gefunden" & _
            "werden.", "Datei nicht gefunden", MessageBoxButtons.OK)
 
        ElseIf Me.fileexists(source & ProgrammPrefix & versionnew & ".runfile") _
          = False Then
            MessageBox.Show("Die Updatedatei .runfile konnte nicht gefunden" & _
            "werden.", "Datei nicht gefunden", MessageBoxButtons.OK)
        End If
Ich hatte am Anfang normale If Abfragen (5 hintereinander), aber man sagte mir dann daß ich das mit IfElse machen sollte.

Das Problem ist, daß sich das Programm aufhängt. Die einzelnen Abfragen funktionieren, aber nur alleine. Wenn ich drei der Abfragen (egal welche) auskommentiere, werden diese Dateien auf ihre Existenz geprüft und alles klappt. Sind aber alle 5 Abfragen aktiv, hängt sich das Programm einfach auf. Alle 5 Abfragen funktionieren aber einzeln. Die Funktion fileexists sieht so aus: 
Private Function fileexists(ByVal url As String) As String
        Try
            Dim req As WebRequest = WebRequest.Create(url)
            req.Method = "GET"
            Dim resp As WebResponse = req.GetResponse()
 
 
            Return True
        Catch
            Return False
        End Try
 
    End Function
Was mache ich falsch? Ich nehme an, daß die If/ElseIf Lösung nicht gerade die Beste ist. Wie mache ich es besser? Und warum klappen die Abfragen einzeln, aber nicht alle zuammen?
Ich will einfach nur 5 Dateien auf einem Webserver auf ihre Existenz prüfen.
Danke für jede Hilfe!

Novatlan
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Programm hängt sich auf804Novatlan23.01.06 22:16
Response zumachen491Drapondur24.01.06 01:28
Re: Response zumachen460Novatlan24.01.06 08:47

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel