VB2008 Dateiexistenz überprüfen

11/07/2010 15:10 Chain Reaction#1
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
11/07/2010 15:13 boxxiebabee#2
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: [Only registered and activated users can see links. Click Here To Register...]
11/07/2010 16:00 OPO-Info#3
Quote:
Originally Posted by SeemsInsane View Post
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
Code:
My.Computer.FileSystem.FileExists("Pfad")
#edit
Ich hab dir das nochmal für dein Beispiel übernommen.

Code:
If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("existiert")
Code:
  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
11/07/2010 17:35 Chain Reaction#4
Vielen Dank für die Hilfe.
#closerequest
11/07/2010 18:11 MoepMeep#5
Quote:
Originally Posted by -Varken- View Post

Code:
  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? ._.
11/07/2010 18:52 .BritainAndy#6
Code:
  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?
11/07/2010 19:35 OPO-Info#7
Quote:
Originally Posted by MoepMeep View Post
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

Quote:
If My.Computer.FileSystem.FileExists("C:\Test\Passwor t.txt") Then
MsgBox("existiert")
11/07/2010 19:35 MoepMeep#8
Quote:
Originally Posted by .BritainAndy View Post
Code:
  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 :>
11/08/2010 15:00 .BritainAndy#9
oups,
11/08/2010 15:16 tbjumper#10
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.
11/08/2010 16:05 Kuchenfreak™#11
Quote:
Originally Posted by tbjumper View Post
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.
11/08/2010 16:40 tbjumper#12
Hilft mir nicht so viel.