[Visual Basic] Nach Datei suchen

  • Hallo liebe Community,


    ich wollte mal Frage wie ich in Visual Basic etwas Programmiere.
    Ich wollte Programmieren wenn man auf einen Button drückt durchsucht das Programm denn PC nach einer Datei, in meinen fall ist es test.txt
    wenn der Computer die Datei findet wird eine MsgBox gestartet wo steht "Datei gefunden" wenn nicht steht da "Datei nicht gefunden" ich hoffe
    das sich jemand meldet.



    Mein Code der nicht geht:

    Code
    For Each neuedatei As String In My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchAllSubDirectories, "test.txt")
     MsgBox("Datei Gefunden | Programm verwehrt den Zugriff") 
     Next 
     MsgBox("Programm gewährt den Zugriff")
  • If benutzen?


    Warte probiere es eben aus ;)


    //edit:
    Thread ersteller hats ausgebessert...
    Antworte wenn ich mal drüber geschaut habe
    //edit2:
    Ansich sucht der Computer bei mir nach der Datei ;)
    Was funktioniert denn nicht?

  • Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For Each neuedatei As String In My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchAllSubDirectories, "test.txt")


    Next
    End Sub
    End Class



    ist der komplette Code.


    Hier ist der Fehler:


    Der Zugriff auf den Pfad "C:\$Recycle.Bin\S-1-5-20\" wurde verweigert.

  • Dann macht das Programm überhaupt nichts und das bringt dann was ;)?

  • Kannst du mir vielleicht deinen kompletten Code davon schicken dann schaue ich an was bei dir anders ist.

  • Müsste ich erst schreiben ;)


    ich mache das mit meinem Desktop Reiniger der alle Dateien auf
    dem Desktop verschiebt... Das Programm schmiert genauso ab, wenn
    es eine Datei versucht zu verschieben welche in Benutzung ist.


    Muss mal sehne ob ich den Source noch habe.

  • Danke für deine Hilfe



    Closed



    Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim sPath As String = "C:\test\"
    If IO.Directory.Exists(sPath) Then
    For Each sFile As String In IO.Directory.GetFiles(sPath, "Datei.exe")
    MsgBox("Datei gefunden")
    Next
    MsgBox("ssss")
    End If
    End Sub
    End Class


    habs hinbekommen

    Einmal editiert, zuletzt von Phönix ()