Как проверить нахождения файла в папке перед его загрузкой?

[HellScream]

Как проверить нахождения файла в папке перед его загрузкой?
заранее спасибо

[GSerg]

if len(dir("file")) then...

[Tarik]

Код: Выделить всё

Private Declare Function SHFileExists Lib "shell32" Alias "#45" (ByVal szPath As String) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    MsgBox "Does the file exist?" + Str$(SHFileExists("c:\autoexec.bat"))
End Sub


Только учти, что это недокументирванная ф-ция!

[Scuder]

Гм..

Код: Выделить всё

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

If PathFileExists(App.Path & "\setup.ini") = False Then Exit Sub

[Sedge]

Мы не ищем простых путей?

[Scuder]

Мы не ищем простых путей?

Да куда уж проще-то??

[Sedge]

Мы не ищем простых путей?

Да куда уж проще-то??

Как куда?

Код: Выделить всё

Private Declare Function PathAddBackslash Lib "shlwapi.dll" Alias "PathAddBackslashA" _
  (ByVal pszPath As String) As Long

Private Function AddBackslash(ByVal sPath As String) As String
'
On Error GoTo eRes

'//------------------------------------------------------------------------------------
  Dim lRes As Long
  Dim sBuffer As String
'//------------------------------------------------------------------------------------
    sBuffer = Left$(sPath & String(MAX_PATH, vbNullChar), MAX_PATH)
    lRes = PathAddBackslash(sBuffer)
    If lRes <> 0 Then
        AddBackslash = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
    End If

Exit Function
eRes:
  MsgBox Err.Description
End Function


Таким образом:

Код: Выделить всё

If PathFileExists(AddBackslash(App.Path) & "setup.ini") = False Then Exit Sub


Во!

[Tarik]

2Sedge: Ну крут, крут, ничего не скажешь

[Sedge]

2Sedge: Ну крут, крут, ничего не скажешь

Гы Это я на зубок новую религию пробую: http://bbs.vbstreets.ru/viewtopic.php?t=10278 В апишных декларациях пространства для Пальцев \m/ намного больше, чем в одной строчке vb-кода

[Dex]

Я обычно проверяю с помощью Fso
Ну типо вначале обьявляю:

Код: Выделить всё

Dim fso As New FileSystemObject

а затем проверяю

Код: Выделить всё

If fso.FolderExists("C\...") Then