The DIRECTORY() function doesn't see hidden or system subdirectories. You can either remove hidden attribute or use ADIR

GoodDir = "V:\Data\Dlog3\SitePhotos\123456"
? ADIR(laTemp, GoodDir, "DHS")

If WSH is an option

oFSO = createobject('Scripting.FileSystemObject')
? oFSO.FolderExists(GoodDir)

>GoodDir = "V:\Data\Dlog3\SitePhotos\123456\"
>?directory(GoodDir) returns .F. but, that is incorrect
>
>PartDir = "V:\Data\Dlog3\SitePhotos\"
>?directory(PartDir) returns .T.
>
>copy file Something.jpg to (GoodDir + "Something.jpg") works just fine.
>adir(aName, GoodDir + "*.jpg") returns 0 even though there are .jpg files in the folder.
>
>Is there any way around this deficency without renaming 500 folders and changing tons of code?