VB2008 Dateiexistenz überprüfen

[Chain Reaction]

Hey Leute


Wie kann ich überprüfen ob sich die Datei Passwort.txt im Ordner C:\Test\ befindet?

Ich bekomms einfach nicht hin mit Google.

Danke für Antworten,

SeemsInsane

[boxxiebabee]

Programmiere nicht in VB, aber google sagt folgendes:

'Existiert eine Datei?
Function FileExists(File As String) As Boolean
On Error Resume Next
FileExists = False
FileExists = Dir(File) <> ""
End Function

'Existiert ein Verzeichnis?
Function FolderExists(Folder As String) As Boolean
On Error Resume Next
FolderExists = False
FolderExists = Dir(Folder, vbDirectory) <> ""
End Function

quelle:

[OPO-Info]

Originally Posted by SeemsInsane

Hey Leute


Wie kann ich überprüfen ob sich die Datei Passwort.txt im Ordner C:\Test\ befindet?

Ich bekomms einfach nicht hin mit Google.

Danke für Antworten,

SeemsInsane

My.Computer.FileSystem.FileExists("Pfad")

#edit
Ich hab dir das nochmal für dein Beispiel übernommen.

If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("existiert")

  If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("existiert")
        Else
          '  If Not My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
                MsgBox("existiert nicht")
           ' End If
        End If
[CODE]
 If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("existiert")
        Else
  MsgBox("existiert nicht")
            End If

[/code]


Grüße

[Chain Reaction]

Vielen Dank für die Hilfe.
#closerequest

[MoepMeep]

Originally Posted by -Varken-

  If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("existiert")
        Else
            If Not My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
                MsgBox("existiert nicht")
            End If
        End If

Du überprüfst, ob die Datei existiert, falls nicht überprüfst du ob sie nicht existiert. Warum? ._.

[.BritainAndy]

  If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("existiert")
        Else
       MsgBox("existiert nicht")
           End If
        End If

kenne mich mit vb nicht aus, aber so sollte es gehen oder?

[OPO-Info]

Originally Posted by MoepMeep

Du überprüfst, ob die Datei existiert, falls nicht überprüfst du ob sie nicht existiert. Warum? ._.

Hätte ich wohl trennen sollen, dass war aber darum, weil die Frage mal kam, wie das denn verkehrt laufen würde (If not).

Hab das ja eigentlich auch separat aufgeschrieben

If My.Computer.FileSystem.FileExists("C:\Test\Passwor t.txt") Then
MsgBox("existiert")

[MoepMeep]

Originally Posted by .BritainAndy

  If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("existiert")
        Else
       MsgBox("existiert nicht")
           End If
        End If

kenne mich mit vb nicht aus, aber so sollte es gehen oder?

Bis auf den syntax-error, jo :>

[.BritainAndy]

oups,

[tbjumper]

Ich hab eine Frage.. Die hat damit zu tun.
Unzwar:
Ich möchte das er guckt ob die datei dem pfad entspricht z.B
C:\Programme\Ordner
Und wenn nicht , soll dort ein Textfeld kommen wo ich den pfad eingeben soll.
Z.b D:\Programme\Ordner

Wäre echt nett.

[Kuchenfreak™]

Originally Posted by tbjumper

Ich hab eine Frage.. Die hat damit zu tun.
Unzwar:
Ich möchte das er guckt ob die datei dem pfad entspricht z.B
C:\Programme\Ordner
Und wenn nicht , soll dort ein Textfeld kommen wo ich den pfad eingeben soll.
Z.b D:\Programme\Ordner

Wäre echt nett.

Also wie du das überprüfst steht ja in den vorherigen Beiträgen hier und ansonsten solltest du dir mal den OpenFileDialog angucken.
Damit kann man dann dieses typische "Durchsuchen"-Fenster öffnen und den Pfad suchen.

[tbjumper]

Hilft mir nicht so viel.