>
>
>oFSO = CREATEOBJECT("Scripting.FileSystemObject")
>
>lcpath = space(255)
>DECLARE SHGetSpecialFolderPath IN SHELL32.DLL ;
> LONG hwndOwner, ;
> STRING @cSpecialFolderPath, ;
> LONG nWhichFolder
>CSIDL_FAVORITES= 6 &&Favorites Folder
>SHGetSpecialFolderPath(0, @lcpath, CSIDL_FAVORITES)
>lcpath=SubStr(RTrim(lcpath),1,Len(RTrim(lcpath))-1)
>
>FOR EACH ofile IN oFSO.GetFolder(lcpath).Files
> ?ofile.name
> ofile.copy("a:\")
>endfor
>>
I am guessing that the problem I am having:
OLE Error code 0x800a0035: Unknown COM status code
is because there are folders in the FAVORITES folder and the routine
hits the wall when it comes across a folder instead of a file.
It would be nice if the code would recognize that the object is a folder and then scann/copy the content of the folder.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
