Find if directory exists

Question:
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.

Answer:
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:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: