Is there a way to test if a directory/folder exists?
I have an AutoPro function (below) which saves the current image to a file. The IPBasic "Dir" function can be used to test if a file exists, but is there any way to test for existence of a folder (ImageFileFolder)?
Private Function Save_Image_File(Doc_ID, ScaleNum, ImageFileName)
' save the current scale image to TIF format file with all annotations
Dim ImageFilePath As String
If InStrRev(ImageFileFolder,"\") <> Len(ImageFileFolder) Then ImageFileFolder = ImageFileFolder & "\"
ImageFilePath = ImageFileFolder & ImageFileName & ScaleNum & ".JPG"
ret = IpWsSaveEx(ImageFilePath, "TIF", 6, 8) '8-BPP TIF format using LZW compression
Save_Image_File = ret