my bad, here is the correct sample

CLEAR

lcDir = [C:\Documents and Settings\Administrator\]

loShell = CreateObject("Shell.Application")
loFolder = loShell.Namespace( lcDir )

For Each lcFileName in loFolder.Items

	lcName 		= loFolder.GetDetailsOf(lcFileName, 0)
	lcFullPath 	= lcDir + lcName
	
	if !directory(lcFullPath)  
		?'Dir not found: ' + lcFullPath
	ELSE
		?'        found: ' + lcFullPath	
	ENDIF 
	
NEXT 

>Mike,
>
>lcDirName is the name of the folder returned, not the full path
>See below
>
>>Namespace is not returning a true directory name. How do I get around this?
>>
>>

>>CLEAR
>>
>>lcDir = [C:\Documents and Settings\Administrator\My Documents\]
>>
>>loShell = CreateObject("Shell.Application")
>>loFolder = loShell.Namespace( lcDir )
>>
>>For Each lcFileName in loFolder.Items
>>	lcDirName = loFolder.GetDetailsOf(lcFileName, 0)
>         lcDirName = addbs(lcDir ) + loFolder.GetDetailsOf(lcFileName, 0)
>>	if !directory(lcDirName)
>>		?'Dir not found: ' + lcDirName
>>	ENDIF
>>NEXT 	
>>