Pytanie : FileExists WinAPI - Delphi

Cześć Ekspert,
I potrzeba dlaczego WinAPI jeżeli kartoteka istnieć lub nie,
other sposób być kartoteka wiek i jeżeli the wiek być ważny lub nie (- (1) = nie Istnieć)

- Wielkościowy metter.
- Musieć dzwonić od dll nie od SysUtils,

I robić niektóre badanie i i tylko VB kod używać WinAPI
so jeżeli anyboddy puszka ono lub ono Delphi i być verry gracefull

http://www.freevbcode.com/ ShowCode.asp? ID=345

Thanks w advace, 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

Declarations:
'#VBIDEUtils# **************************************************
'* Programista Imię: Waty Thierry
'* Strona Internetowa: www.geocities.com/ResearchTriangle/6311/
'* email: [email protected]
'* Data: 28/06/99
'* Czas: 12:24
'**************************************************************
'* Komentarz: API FileExist
'*
'*
'****************************************************************

Opcja Wyraźny

Intymny Const INVALID_HANDLE_VALUE = -1
Intymny Const MAX_PATH = 260

Intymny Typ FILETIME
   dwLowDateTime Długo
   dwHighDateTime Długo
Końcówka Typ

Intymny Typ WIN32_FIND_DATA
   dwFileAttributes Długo
   ftCreationTime Jako FILETIME
   ftLastAccessTime Jako FILETIME
   ftLastWriteTime Jako FILETIME
   nFileSizeHigh Długo
   nFileSizeLow Długo
   dwReserved0 Długo
   dwReserved1 Długo
   cFileName Jako Sznurek * MAX_PATH
   cAlternate Jako Sznurek * 14
Końcówka Typ

Intymny Oznajmiać Funkcja FindFirstFile Wyzwolenie "kernel32" _
   Pseudonim "FindFirstFileA" _
   (ByVal lpFileName Jako Sznurek, _
   lpFindFileData Jako WIN32_FIND_DATA) Długo

Intymny Oznajmiać Funkcja FindClose Wyzwolenie "kernel32" _
   (ByVal hFindFile Długo) Długo

Kod:
'Użycie: 
'ciemnawy bFileExists ciemnawy
'bFileExists = FileExists ("c:\win\system\comctl32.dll ")
Jawny Funkcja FileExists (sSource Sznurek) Boolowski
   
   Ciemnawy WFD Jako WIN32_FIND_DATA
   Ćmić hFile Długo
   
   hFile = FindFirstFile (sSource, WFD)
   FileExists = hFile <> INVALID_HANDLE_VALUE
   
   Wywoławczy FindClose (hFile)
   
Końcówka Funkcja

Odpowiedź : FileExists WinAPI - Delphi

Filezilla
http://filezilla-project.org/

Jeżeli używać Firefox, FireFTP:
http://fireftp.mozdev.org/
Inne rozwiązania  
 
programming4us programming4us