Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Кабан

Public Function fnFileExists(strFilePath As String) As Boolean     Dim objFSO As Object     Set objFSO = CreateObject("Scripting.FileSystemObject")     fnFileExists = objFSO.FileExists(strFilePath)     Set objFSO = Nothing End Function Public Function fnGetSpecFolder(btSpec As Byte) As String     Dim objFSO As Object     fnGetSpecFolder = ""     If btSpec >= 0 And btSpec < 3 Then         Set objFSO = CreateObject("Scripting.FileSystemObject")         fnGetSpecFolder = objFSO.GetSpecialFolder(btSpec)         Set objFSO = Nothing     End If End Function

Function CheckDir(MyPath$) As Boolean     CheckDir = Len(Dir(MyPath)) End Function