| |
автор: ????? (30.11.-1 в 00:00) |
|
| | Как проверить существование файла?
Если С:main1.mdb существует то .....
Как на VBA | |
| |
| |
| |
автор: filosof (30.11.-1 в 00:00) |
|
| | If Len(Dir("С:main1.mdb")) <> 0 Then msgbox "Файл существует" | |
| |
| |
| |
автор: ????? (30.11.-1 в 00:00) |
|
| | не моё, но работает безотказно Public Function adhFileExists(sFN, Optional out_FileName As String) As Boolean
Dim s As String
On Error Resume Next
out_FileName = ""
out_FileName = Dir(sFN, vbHidden Or vbSystem Or vbArchive Or vbReadOnly)
adhFileExists = ((Len(out_FileName) > 0) And (Err.Number = 0))
Err.Clear
End Function | |
| |
| |
| |
автор: Serge_Gavrilov (30.11.-1 в 00:00) |
|
| | Re: не моё, но работает безотказно ?adhFileExists("c:")
True | |
| |
| |
