Code:
Private Const MAX_PATH = 260

Private Type FileTime
   dwLowDateTime As Long
   dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
   dwFileAttributes As Long
   ftCreationTime As FileTime
   ftLastAccessTime As FileTime
   ftLastWriteTime As FileTime
   nFileSizeHigh As Long
   nFileSizeLow As Long
   dwReserved0 As Long
   dwReserved1 As Long
   cFileName As String * MAX_PATH
   cAlternate As String * 14
End Type

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long


Public Function FileExists(fn As String) As Boolean
    Dim retval As Long, FindData As WIN32_FIND_DATA, retval2 As Long
    retval = FindFirstFile(fn, FindData)
    If retval <> -1 Then FileExists = True
    retval2 = FindClose(retval)
End Function

Code:
Private Sub Form_Load()
Dim Fso
Set Fso = CreateObject("Scripting.filesystemobject")

If Fso.FileExists("C:\text.txt") Then
 MsgBox "postoji"
Else
MsgBox "ne postoji"
End If

End Sub

Code:

Function Postoji(filename As String) As Boolean
    Postoji = (Len(Dir(filename))<>0)
End Function
'a koristi se ovako:
If Postoji("C:\Programs\Imenik.doc") Then
  MsgBox "Postoji."
Else
  MsgBox "Ne postoji."
End If

Code:

Function PostojiDir(dirname As String) As Boolean
    PostojiDir = (Len(Dir(dirname, vbDirectory))<>0)
End Function
'a koristi se ovako:
If PostojiDir("C:\Programs\") Then
  MsgBox "Postoji."
Else
  MsgBox "Ne postoji."
End If

Code:
Postoji = (Dir(filename)<>"")

Code:

 If Len(somestring)=0 Then

Code:

 If somestring="" Then

Code:

 If Len(somestring)=0 Then

Code:

 If LenB(somestring)=0 Then