>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 >