Jobs
Author: Mohammed Gafoor Date Submitted: 9/12/2005 Category: File Manipulation Compatibility: VB 6 This code has been accessed 5612 times.
Email Yourself this snippet:
No declarations
Code
' I AM USING METHOD OF FILESYSTEM OBJECT FOR FOLDER EXISTANCE Public Function FolderExists(DirPath As String) As Boolean On Error GoTo FolderErr 'Declare File System Object Dim fso As Object 'Create File System Object Set fso = CreateObject("Scripting.FileSystemObject") 'Check Wheather Folder exists or not FolderPathExists = fso.FolderExists(sDir) Exit Function FolderErr: MsgBox Err.Description, vbCritical, "Error " FolderPathExist = False End Function 'Please if any feedback let me know my email is gafoo_bca@yahoo.co.in 'gafoor_bca@hotmail.com
