checking if a card reader drive has folders 1

[beedubau]

I am still attempting to read media files from a media drive.
I have the code

FOR I = 4 TO 26 && Loop through drive letters D thru Z
	cDRIVE = CHR(I + 64)
	nDTYPE = DRIVETYPE(cDRIVE) && Determine drive type
	
	IF nDTYPE = 2 && Floppy drive or card reader slot
				
	  IF validpath(cDRIVE +':\DCIM\')  <<<<<<<<<<

		=pic_getfiles(cDRIVE +':\DCIM\')

        ENDIF

	ENDIF

ENDFOR

pic_getfiles() is my own prg

This works fine for a known drive with a card in it.

if a drive letter for a media card reader does not have a card in it, this line (<<<<<< )gives an error.

<<<<<< = IF validpath(cDRIVE +':\DCIM\')

How can I test if a media card reader drive has a card in it to enable a check to be made for the DCIM folder?

Regards

Bryan

 

[Olaf Doschke]

I don't knowhow you programmed validpath(), but a simple Directory(cDrive+':\DCIM\') should wokr instead.

Bye, Olaf.

 

[beedubau]

Olaf,

Even with your directory function I get an error on an empty card reader drive.

Exception Processing Message c00000013 etc etc

The drive itself is listed in My Computer.

Regards

Bryan

 

[Olaf Doschke]

To handle such critical errors (c...) you need the WinAPI call of SetErrormode. It's the same problem as detecting if a floppy is in a floppy drive, for which a solution is available here:

http://support.microsoft.com/kb/125372/en-us

Bye, Olaf.

 

[Olaf Doschke]

nowadays the simplest might be:

oFSO = CREATEOBJECT("Scripting.FileSystemObject")
? oFSO.FolderExists(cDrive+":\")

Bye, Olaf.

 

[Olaf Doschke]

or

oFSO = CREATEOBJ('Scripting.FileSystemObject')
oDrive = oFSO.GetDrive(cDrive+":")
? oDrive.IsReady
[/codee]

Bye, Olaf.

 

[beedubau]

Thanks Olaf