>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)
>	if !directory(lcDirName)
>		?'Dir not found: ' + lcDirName
>	ENDIF
>NEXT 	
>

How about:

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)

    if !directory(lcDir+lcDirName)
        ?'Dir not found: ' + lcDirName  
    ENDIF 
NEXT