[R] Copie de fichier d'un dossier vers un autre dossier

[jcaspar]

B onjour à tous !

Je souhaite copier la version portable de la suite libre office sur tous les postes
de mon domaine ... Mais je rencontre un soucis dans la copie...les fichiers situés à la
racine sont bien copiés mais pas les dossiers et leur contenu .....

Merci d'avance pour toutes vos idées !

Code : Tout sélectionner

#NoTrayIcon
#include <File.au3>

$dossier="c:\APPLI\LibreOffice"
If FileExists($dossier) = 1 Then 
    msgbox(48,"Libre Office"," Libre Office est déjà copié sur votre PC")
    Exit
    
Else
    msgbox(48,"Copie Libre Office","Copie de Libre Office Portable sur C:\APPLI",10)
    $a=DirCreate("c:\APPLI\LibreOffice")
    msgbox(4096,"taille","Taille dossier",10)
    filecopy("\\164.131.3.2\depot$\LIBREOFFICE\*.*","c:\APPLI\LIBREOFFICE\")
    dirCreate("c:\APPLI\LibreOffice\App")
    dircopy("\164.131.3.2\depot$\LIBREOFFICE\App\*.*","c:\APPLI\LIBREOFFICE\App\",0)
    DirCreate("c:\APPLI\LibreOffice\Other")
    dircopy("\164.131.3.2\depot$\LIBREOFFICE\Other\*.*","c:\APPLI\LIBREOFFICE\Other\",0)
    DirCreate("c:\APPLI\LibreOffice\Data")
    dircopy("\164.131.3.2\depot$\LIBREOFFICE\Data","c:\APPLI\LIBREOFFICE\Data\",0)
    FileWrite("\\164.131.3.2\depot$\LIBREOFFICE\installation.txt", @username & "  " &  @computername & "  " & @CRLF)


EndIf

 

[matwachich]

DirCopy

[jcaspar]

J'ai essayé avec Dircopy mais le problème est identique il copie le dossier mais sans les fichiers qui sont à l'intérieur ....

[Tlem]

Je ne sais pas si c'est une erreur de transcription, mais cette ligne est correcte :

Code : Tout sélectionner

    filecopy("\\164.131.3.2\depot$\LIBREOFFICE\*.*","c:\APPLI\LIBREOFFICE\")

alors que celle-ci ne l'est pas :

Code : Tout sélectionner

    dircopy("\164.131.3.2\depot$\LIBREOFFICE\App\*.*","c:\APPLI\LIBREOFFICE\App\",0)

Les chemins UNC doivent commencer par deux \\.

De plus, le flag 0 empêche la fonction de continuer la copie si le dossier est déjà existant. Donc utilisez le flag 1.