VariableRésolu

Question

Bonjour &#224; tous,

J'ai besoin de votre aide au sujet de l'utilisation de variable.
Je vous explique

J'ai une form avec 3 zones textes a remplir , 1 bouton ("Copie") et je veux utiliser la fonction xcopy.exe car j'ai besoin de faire des exclusions lors de la copie ( c'est &#224; dire par exemple de ne pas copier Temporary Internet Files) et d'avoir une visu de ce qui se passe en DOS 

le probleme c'est que xcopy ne comprends pas  lorsque je renseigne &VarUti etc etc.... ( voir ci dessous dans 'Bouton copie) 

VarUti  correspond &#224; un repertoire users
VarDepart  &#224; un serveur de depart ( nom netbios)
VarArrivee &#224; un serveur d'arriv&#233;e (nom netbios)

Je precise que je ne trouve pas l'equivalent de xcopy en commande File Systeme Object car j'ai besoin de rajouter comme argument l'option d'exclusion de certains repertoires comme expliquer au dessus.
Donc connaissez vous la syntaxe &#224; utiliser dans mon cas ou une autre solution ???

Merci d'avance pour votre aide.
Angus
------------------------------------------------ 
'Declarations des Variables
Dim VarUti As String
Dim VarDepart As String
Dim VarArrivee As String
Dim Chemin As String
VarUti = Text1.Text
VarDepart = Text2.Text
VarArrivee = Text3.Text
-------------------------------------------------------
'Bouton copie
Private Sub Copie_Click()

Call Shell("cmd /k xcopy.exe [file://\VarDepart\VarUti \VarDepart\VarUti]  [file://\VarArrivee \VarArrivee] /s", vbNormalFocus)
End Sub
-----------------------------------------------------------------------------

cs_CanisLupus · Accepted Answer

Chez moi, j'ai win98, &#231;a marche avec &#231;a :

var1 = "temp	est"
var2 = "temp	ruc"
Call Shell("c:\command.com /k c:\windows\command\xcopy.exe c:" & var1 & " c:" & var2 & " /s", vbNormalFocus)

Loup Gris

cs_CanisLupus · Answer

Salut,

Essaie &#231;a :

Call Shell("cmd /k xcopy.exe \" & VarDepart & "" & VarUti & " \" & VarArrivee & " /s", vbNormalFocus)

Loup Gris

cs_Angus59 · Answer

Salut LoupGris et merci de la reponse.

Je ne suis pas sur mon site de boulot donc je ne peux pas faire l'essai avec \nomduserveurep

Mais cela reviens au meme en changeant les variables 
j'ai pu tester la syntaxe sur mon pc perso , Cela ne fonctionne pas ,au plutot pas comme on le veux , c'est a dire que le xcopy se lance mais il copie c:\ vers e:\ il ne prends pas en compte les variables renseign&#233; comme ci dessous, je m'explique. 

je rentre dans la zone Text1 : Poub\1   
                                 Text2 : tempo
'Variable
VarUti = Text1.Text
VarDepart = Text2.Text

Call Shell("cmd /k xcopy.exe c:" & VarUti & " e:" & VarDepart & " /s", vbNormalFocus)

Voila
Merci de vos reponses.

cs_Angus59 · Answer

Salut et merci de ta reponse LoupGris

En effet ta syntaxe de la ligne de commande fonctionne.

Mais j'ai compris pourquoi cela ne marchais pas chez moi, j'ai oubli&#233; ca dans la private Sub Copie_Click : 
************************
VarUti = Text1.Text
VarDepart = Text2.Text
**************************
donc c'etait normal que la ligne de commande Call Shell("cmd /k xcopy.exe c:" & VarUti & " e:" & VarDepart & " /s", vbNormalFocus) ne fonctionnait pas.

Mais j'avais deja declar&#233; VarUti et VarDepart dans un autre Sub et je pensais que c'etait definitif mais apparemment non !! faut il a chaque fois les declarer dans chaque Sub ??

Voila merci encore LoupGris
A bientot car j'aurais surement d autres questions

cs_CanisLupus · Answer

Si tu veux que tes variables soient connues dans tout ton formulaire, d&#233;clare les au niveau g&#233;n&#233;ral du form.
Si tu veux qu'elles soient connues dans tout le projet d&#233;clare les en public dans un module.

Loup Gris

Variable

5 réponses

Discussions similaires