Copy folderRésolu

Question

Bonjour 

je vous poste ça, au cas ou vous auriez trouvé les erreurs avant moi 
Le but du script : 
    1°  Il verifie  si il existe un sous dossier dans  le repertoir transfert 
    2° Si oui il fait une copie dans un repertoire sur un serveur distant via le lecteur reseau x
    3° Et il déplace l'original dans archive

Je pense que l'erreur est bête mais  je la voit  pas  (peut être la fatigue)

L'erreur est : type incompatible 'folderexist
Code 800A000d
Caract : 1
j'en suis sur qu'il y en a d'autre, n'hésiter pas 
SVP help et aprés j'aurais finis mon projet   

                                                                Thank you Beaucoup

-------------------------------------------------------------------------------
 Option Explicit 
 On Error Resume 
 
Dim strLocalName, strRemoteName, strUser, strPassword
Dim FolderSrce 'Repertoire source 
Dim FolderDest 'Repertoire de destination 
Dim FolderArch 'Repertoire des Archives  
Dim Fso

FolderDest = " x:"
FolderSrce = "c:\:ASR\Outils\CTRLAD_v0.1\archive\Transfert"
FolderArch = "c:\ASR\Outils\CTRLAD_v0.1\Archive"
strUser = ("toto")
strPassword = ("tata") 

Set Fso = CreateObject("Scripting.filesystemObject")
Set WSHNetwork = WScript.CreateObject("WScript.Network")

    'connection au lecteur réseau du serveur à atteindre 
WSHNetwork.MapNetworkDrive "x:","\192.168.106.10\c$\ASR\Outils\Outils\CTRLAD_v0.1\DomainLog",True, strUser, strPassword

      ' Si le dossier contient quelque chose, ici un dossier dont on ne connait pas le nom à l'interieur de         transfert
        'il copie folderSrce sur le lecteur reseau (FolderDest) et 
        'il déplace FolderSrce dans FolderArch  
If  folderexist (FolderSrce) Then 
    Fso.CopyFolder FolderSrce , FolderDest ,, True 
    Fso.MoveFolder FolderSrce , FolderArch ,, True 
End If 

    'Déconnecté le lecteur x: 
WSHNetwork.RemoveNetworkDrive ( x : ) 

WScript.quit (0)

------------------------------------------------------------------------------

jrivet · Accepted Answer

Salut,
Ou est la fonction folderexist ???? Attends elle bien une chaine de caractere (meme si en VBS il n'y pas de typage, on se doute bien de ce qu'attends une fonction)

@+: Ju£i?n
Pensez: Réponse acceptée

McDEV04 · Answer

Merci Merci 
j'avais pas fait attention 

mais je vien de me rendre compte que le résultat que je vais obtenir, n'est pas ce que je voulais réellement.
Car ce script va copier et déplacer  le repertoire transfert
et moi ce que je veut c'est qu'il regarde à l'interieur du repertoire transfert et qu'il renvoie tous ce qu'il contient 
Bon je recommence tout  et je reviens

Merci quand même d'avoir pris le temps de me répondre

McDEV04 · Answer

Me re-voici Me-revoilà 

Avec toujour un script et ces erreurs
Il detecte bien l'existance d'un sous repertoire mais il ne veut pas le déplacer
Bon j'y retourne à taleur

Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\ASR\Outils\CTRLAD_v0.1 ENFANT\Archive\Transfert"
If oFSO.FolderExists(stRep) Then
 For each oFld in  oFSO.GetFolder(stRep).SubFolders
   Wscript.Echo oFld.Name    
   oFso.MoveFolder(ofld),("C:\ASR\Outils\CTRLAD_v0.1 ENFANT\Archive") 
 Next
End If

McDEV04 · Answer

Il me dit que ce fichier existe dejà

McDEV04 · Answer

Pfoaaaa Ben toujour pas trouvé, help me please 
ou si vous avez un solution 
je ve juste que le script verifie si un sous dossier existe si oui qu'il le déplace

cs_JMO · Answer

Bonjour à tous,

Dim objFso, strPathLocal, strPathSauve
strPathLocal = "D:\SCRIPTS\Fichiers\Test"
strPathSauve = "D:\SCRIPTS\Fichiers\Sauve"

Set objFso = CreateObject("Scripting.FileSystemObject")
'Si le répertoire strPathsauve n'existe pas, on le créé
If Not objFso.FolderExists(strPathSauve) Then objFso.CreateFolder(strPathSauve)
'Si le répertoire strPathLocal existe, on déplace tous les fichiers de ce répertoire 
'vers le répertoire strPathSauve
If objFso.FolderExists(strPathLocal) Then objFso.MoveFile strPathLocal & "*.*", strPathSauve

Pour le MoveFile, tu peux utiliser les syntaxes:
objFso.MoveFile strPathLocal & "*", strPathSauve
objFso.MoveFile strPathLocal & "*.*", strPathSauve
objFso.MoveFile strPathLocal & "*.txt", strPathSauve

jean-marc

cs_JMO · Answer

Re,

Si les fichiers existent, il faut utiliser copyfile et deletefile.

Set objFso = CreateObject("Scripting.FileSystemObject")
If Not objFso.FolderExists(strPathSauve) Then objFso.CreateFolder(strPathSauve)
If objFso.FolderExists(strPathLocal) Then 
    objFso.CopyFile strPathLocal & "*", strPathSauve, True
    objFso.DeleteFile strPathLocal & "*.*", True
End if

jean-marc

lolokun · Answer

Salut,

Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\ASR\Outils\CTRLAD_v0.1 ENFANT\Archive\Transfert"
If oFSO.FolderExists(stRep) Then
 For each oFld in  oFSO.GetFolder(stRep).SubFolders
   Wscript.Echo oFld.Name    
   oFso.MoveFolder ofld,"C:\ASR\Outils\CTRLAD_v0.1 ENFANT\Archive" 
 Next
End If 

C'est un dossier donc n'oublie le "" à la fin :)

McDEV04 · Answer

Je vous remercie à tous !!!!!
Comme j'ai pas voulu attendre des réponses, j'ai continuer à chercher de mon coté et entre temps j'ai trouvé une autre solution. je  gardes quand même votre solution bien au chaud au cas ou.. et puis sa va peut être aider d'autres personnes. 
 je re-remercie tous ceux qui ont bien pris le temps de me répondre

jrivet · Answer

Salut,
Et si tu partageais la solution trouvé??? après tout le partage doit fonctionner dans les deux sens. Il faut tuoujours penser que d'autre pourront avoir le meme souci que toi et je pense qu'il serait content de trouver ta solution seul dans le forum.

@+: Ju£i?n
Pensez: Réponse acceptée

Copy folder

10 réponses

Votre réponse

Discussions similaires