Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Copying an entire directory and its tree to another loca
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows 2000 Server
Divers
Thread ID:
00980851
Message ID:
01327101
Vues:
42
>>>So, if is not your rights it must be your code, for CopyFolder works perfectly for me.
>>>
>>>Also check that there is no read-only file/folder in the directory structure, and that there is no file in use that would make the copy fail
>>
>>This sugestion makes more sense , i'll check that
>
>Why did my previous suggestion not made any sense? Try running the command without rights and tell me :P
>
>Just in case this is the code I used for testing
>
>
>loFSO		= Createobject('Scripting.FileSystemObject')
>loFSO.CopyFolder('\\skyapps\apps\foxv\divar', '\\' + Getenv("COMPUTERNAME") + '\c$\divar')
>
>
>As an alternative, you can use the Shell object to do this, which it would also fire the "Copying files" AVI for long files, although I might have the parameters wrong, I only used it once in my applications and forgot where and which parameters I used, but it works too.
>
>
>loShell		= CreateObject("Shell.Application")
>loFolder	= loShell.NameSpace(Getenv("COMPUTERNAME") + '\c$\divar')
>loFolder.CopyHere('\\skyapps\apps\foxv\divar', 16 + 64 + 256 + 512 + 1024 + 2048 + 4096 + 9182)
>
Nice, thanks, though I can not test it now.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform