این کد خیلی تو برنامه هایی که با شاخه ها فایل ها و فولدر ها ارتباط دارن به درد میخوره.می تونین با این تابع وجود فایل ها یا فولدر هایی که حتی اگه Hidden هم که باشن چک کنین.


Public Function PathExists(ByVal Pathname As String, Optional ByVal IsFolder As Boolean = False) As Boolean
  PathExists = (Dir$(Pathname, vbArchive + vbHidden + vbReadOnly + vbSystem + IIf(IsFolder, vbDirectory, 0)) <> "")
End Function