Declarations:
'#VBIDEUtils# **************************************************
'* Programmierer-Name: Waty Thierry
'* Web site: www.geocities.com/ResearchTriangle/6311/
'* eMail: [email protected]
'* Datum: 28/06/99
'* Zeit: 12:24
'**************************************************************
'* Anmerkungen: API FileExist
'*
'*
'****************************************************************
Wahl ausdrücklich
Privates Const INVALID_HANDLE_VALUE = -1
Privates Const MAX_PATH = 260
Private Art FILETIME
dwLowDateTime als lang
dwHighDateTime als lang
Enden-Art
Private Art WIN32_FIND_DATA
dwFileAttributes als lang
ftCreationTime als FILETIME
ftLastAccessTime als FILETIME
ftLastWriteTime als FILETIME
nFileSizeHigh als lang
nFileSizeLow als lang
dwReserved0 als lang
dwReserved1 als lang
cFileName als Schnur * MAX_PATH
cAlternate als Schnur * 14
Enden-Art
Privat Funktion FindFirstFile Bibliothek „kernel32“ _ erklären
Alias „FindFirstFileA“ _
(ByVal lpFileName als Schnur, _
lpFindFileData als WIN32_FIND_DATA) als lang
Privat Funktion FindClose Bibliothek „kernel32“ _ erklären
(ByVal hFindFile als lang) als lang
Code:
'Verbrauch:
'schwache bFileExists, wie Boolesch
'bFileExists = FileExists („c:\win\system\comctl32.dll ")
Allgemeine Funktion FileExists (sSource als Schnur) wie Boolesch
Schwaches WFD als WIN32_FIND_DATA
Schwaches hFile als lang
hFile = FindFirstFile (sSource, WFD)
FileExists = hFile <> INVALID_HANDLE_VALUE
Anruf FindClose (hFile)
Enden-Funktion
|