Vb 6.0

  • Автор темы s10
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S
#1
как проверить существование файла при помощи vb 6.0 ?
 
H

Hetman

#2
Я когда-то сделал так
Код:
' Проверка пути
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
 
S

Shadow-Master

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

WildWolf

#4
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
 
Статус
Закрыто для дальнейших ответов.