002
04.07.2004, 02:22 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)
|
Denke er meint wie er im programm suchen kann.
prüfen ob verzeichnis existiert:
| Visual Basic: |
'Die nachfolgende Funktion prüft, ob das angegebene Verzeichnis
'existiert und gibt im Erfolgsfall den Wert True zurück.
'Existiert das Verzeichnis nicht, wird False zurückgegeben.
Public Function FolderExists2(ByVal sFolder As String) As Boolean
'Der Parameter sFolder enthält das zu prüfende Verzeichnis
On Local Error Resume Next
Dim F As Integer
sFolder = Trim$(sFolder)
If right$(sFolder, 1) <> "\" Then _
sFolder = sFolder & "\"
F=FreeFile
Open sFolder & "test.tmp" For Output As #F
FolderExists2 = (Err = 0)
Close #F
Kill sFolder & "test.tmp"
On Local Error GoTo 0
End Function
|
Die nachfolgende Funktion prüft die Extistenz einer beliebigen Datei und liefert den Wert True, wenn diese vorhanden ist bzw. False, wenn die Datei nicht gefunden werden konnte.
Datei exisitert?
| Visual Basic: |
Public Function FileExists(ByVal sFile As String) As Boolean
'Der Parameter sFile enthält den zu prüfenden Dateinamen
Dim Size As Long
On Local Error Resume Next
Size = FileLen(sFile)
FileExists = (Err = 0)
On Local Error Goto 0
End Function
|
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
|
