Vb 6.0

Тема в разделе ".NET", создана пользователем s10, 1 дек 2006.

Статус темы:
Закрыта.
  1. s10

    s10 Гость

    как проверить существование файла при помощи vb 6.0 ?
     
  2. Hetman

    Hetman Гость

    Я когда-то сделал так
    Код (Text):
    ' Проверка пути
    Public Function ExistDir(ByVal exName As String, Optional attr As Integer = 0, Optional Echo As Boolean = True) As String
    On Local Error GoTo Bug
    If Len(exName) < 2 Then GoTo Bug
    If Right(exName, 1) = "\" Then
    exName = Left(exName, Len(exName) - 1)
    End If

    If Left(exName, 2) = "\\" Then
    exName = exName + "\" ' if net
    ElseIf Left(exName, 1) = "\" Then
    exName = VB.App.Path & exName ' if not full adress
    ElseIf Dir(exName, attr) = "" Then
    exName = VB.App.Path & "\" & exName ' etc
    '  ElseIf Dir(exName, attr) <> "" Then
    Else
    ExistDir = exName
    Exit Function
    End If

    If Dir(exName, attr) <> "" Then: ExistDir = exName
    Exit Function
    Bug:
    If Echo = True Then: Call MsgBox("Файла [" & exName & "] не существует", vbInformation, "Внимание!")
    End Function
     
  3. Shadow-Master

    Shadow-Master Гость

    Проще использовать FSO.
    В разделе referenses подлючаем "Microsoft Scripting Runtime"
    потом пишем
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    If fso.FileExists(fName) = True Then
    MsgBox "ok"
    End If
     
  4. WildWolf

    WildWolf Гость

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

    If PathFileExists(strIniPath) = 0 Then
    MsgBox "Error!", vbApplicationModal Or vbCritical
    End If
    :D
     
Статус темы:
Закрыта.

Поделиться этой страницей