Find if directory exists

Find if directory exists

We would like to find out if a directory that was typed exists. Furthermore, we prefer not to use a list box control or getFileOpenName.

To do this you will need to declare the following API call as a local external function:

Function ulong GetFileAttributesA (ref string filename) library "KERNEL32.DLL"

Then write some script as follows:

ULong	lul_RClul_RC = GetFileAttributesA(as_DirectoryName)// Check if 5th bit is set, if so this is a directoryIf Mod(Integer(lul_RC / 16), 2) > 0 Then 	Return TrueElse	Return FalseEnd If


Share the Post: