[Help] Kleines Problem = If.Io.File. ....

  • VBScript

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Rieu.

    [Help] Kleines Problem = If.Io.File. ....

    Mein Problem:
    Ich will das meine Datei sofort beim Start überprüft ob eine Datei vorhanden ist Also so:

    Quellcode

    1. Form1.Load
    2. Dim File As String = IO.Path(Application.ExecutablePath)
    4. If IO.File.Exists(Application.StartupPath & "\" + File + ".dll") Then
    5. Do nothing
    6. End If
    8. If If IO.File.No.Exists(Application.StartupPath & "\" + File + ".dll") Then
    9. Msgbox ("Fatal Error: Wichtige datei ist nicht Vorhanden bitte starten sich den Helper um den Fehler zu behben")
    10. End If


    so hatte ich mir das ungefair vorgestellt ;D aber klappt net -.-

    Alles klar :D

    Ok ich hab das Problem gelöst hab zwar 1 - 2 umwege genommen aber es klappt jetz wenigsten :D


    Code:

    Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. If IO.File.Exists(Application.StartupPath & "\" + "setti.dll") Then
    3. Label1.Text = "Now you can Start"
    4. Timer2.Stop
    5. End If
    8. End Sub
    11. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    12. If Label1.Text = "Error" then
    13. Button2.Performclick
    14. Me.Close
    15. End If
    16. End Sub
    18. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    19. MsgBox("Fatal Error 107283: setti File dont Found"
    21. End Sub


    Naja wie gesagt, wahr ne notlösung mit umweg aber hat geklappt :D 8o 8o

    Umständlicher ging das nicht?

    Das ist doch schneller gelöst (ohne Timer, etc.) über:


    Visual Basic-Quellcode

    1. Set io = CreateObject("Scripting.FileSystemObject")
    2. If io.FileExists(Application.StartupPath & "\" + "setti.dll") Then
    3. MsgBox ("Gefunden")
    4. Else
    5. MsgBox ("Nicht gefunden")
    6. End If

Facebook