Existenz einer Datei / eines Ordners feststellen

    • VB6

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

      Existenz einer Datei / eines Ordners feststellen

      Hoi, Chummers.

      Um festzustellen, ob eine Datei oder ein Pfad existent ist, kann man sehr komfortabel das FileSystemObject benutzen. Dafür müsst Ihr unter Projekt/Verweise ein Verweis auf die "Microsoft Scripting Runtime" erstellen. Wenn Ihr das getan habt, kann es auch schon losgehen:

      Visual Basic-Quellcode

      1. Option Explicit
      3. Private Sub cmdCheck_Click()
      4. Dim Fso As FileSystemObject
      5. Set Fso = New FileSystemObject
      6. If txtDatei.Text <> "" Then
      7. If Fso.FileExists(txtDatei.Text) = True Then
      8. MsgBox "Die Dateiexistiert !", Title:="Erfolg!"
      9. Else
      10. MsgBox "Die Datei existiert nicht !", Title:="Misserfolg!"
      11. End If
      12. End If
      13. If txtPfad.Text <> "" Then
      14. If Fso.FolderExists(txtPfad.Text) = True Then
      15. MsgBox "Der Pfad existiert !", Title:="Erfolg!"
      16. Else
      17. MsgBox "Der Pfad existiert nicht !", Title:="Misserfolg!"
      18. End If
      19. End If
      20. End Sub
      Für dieses Beispiel benötigst du zwei Textfelder (txtPfad und txtDatei) und eine Schaltfläche (cmdCheck).

      Viel Erfolg!

      mfG,

      Malcolm


      Keywords: Visual Basic, VB6, Prüfen ob Datei exisitiert, Ordner existiert, Funktion, Function, FileExist, DirectoryExist, FSO, File System Object

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Mad Andy“ ()

      Es geht allerdings auch einfacher, und zwar mit den folgenden Funktionen:

      Visual Basic-Quellcode

      1. Public Function FileExists(ByVal strFilename As String) As Boolean
      2. ' Überprüfen ob angegebene Datei existiert
      3. If strFilename = vbNullString Then
      4. FileExists = False
      5. Else
      6. FileExists = (Dir$(strFilename, vbHidden + vbReadOnly + vbSystem + vbArchive) <> vbNullString)
      7. End If
      8. End Function
      9. Public Function DirectoryExists(ByVal strDirectory As String) As Boolean
      10. ' Überprüfen ob angegebenes Verzeichnis existiert
      11. If strDirectory = vbNullString Then
      12. DirectoryExists = False
      13. Else
      14. DirectoryExists = (Dir$(strDirectory, vbDirectory + vbHidden + _
      15. vbReadOnly + vbSystem + vbArchive) <> vbNullString)
      16. End If
      17. End Function
      Besucht auch mein anderes Forum:
      Das Amateurfilm-Forum

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Agent“ ()

    Facebook
    Telefonspende