[Fichier] Intégration de variable ?

**Lauwliett** · 27/05/2011, 09h36

Bonjour tout le monde ! Je n'ai pas l'habitude de poster dans des forums, mais je suis complétement bloqué, j'ai besoin de votre aide !

Je m'explique : J'ai une listbox, qui contient des chemins d’accès de fichier, et une dirlistbox, qui contient aussi des chemin d’accès mais de dossier.
Le but du jeu, c'est d'ouvrir un .bat, d'envoyer les chemins d’accès en paramètre en poffinant une syntaxe pour ouvrir Robocopy pour que l'utilisateur puisse copier les fichiers qu'il a sélectionné dans les boxs que j'ai cité plus haut.

J'en suis alors arrivé a ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
'MsgBox "il y a " & CStr(GetSelectedItems(img_list)) & "  item(s) sélectionné(s)"
Dim ret As Long
Dim i As Integer
Dim nb_ligne As Integer
Dim destination As String
Dim source As String
nb_ligne = GetSelectedItems(img_list)
'Pour chaque ligne de la list box on rajoute une ligne dans le .bat
'les """ sont la pour faire en sorte que les dossiers avec plus de 6
'caractères passent sans problemes ! a chaque tour de boucle on ouvre le
'fichier, on rajoute la ligne, et on le ferme ect...
'IL FAUT TROUVER COMMENT PASSER EN PARAMETRE LA VARIABLE SOURCE ET DESTINATION
For i = 0 To nb_ligne
    source = "robocopy" + img_list.ItemData(i)
    destination = dir2.Path + " /E /SEC"
    Open "C:\rbcpy_line.bat" For Append As #1
        Print #1, source, destination
        'Print #1, "Ma ligne DOS 2"
    Close #1
Next
    Open "C:\rbcpy_line.bat" For Append As #1
        Print #1, "pause"
        'Print #1, "Ma ligne DOS 2"
    Close #1
'On sort de la boucle, et on lance le bat obtenu !
'(On ne va pas le lancer à chaque tour de boucle hein !)
ret = Shell("C:\rbcpy_line.bat", vbNormalFocus)
End Sub

Mais on dirait que lors du premier Print #1 il ne reconnait pas mes variables puisque dans la fenêtre dos qui s'ouvre si il ne m'affiche pas une erreur, je vois les chemins d’accès : D:\Monprogramme\source et D:\Monprogramme\destination

Comment lui faire comprendre que source et destination CONTIENNENT des chemins d’accès ?

edit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
For i = 0 To nb_ligne
    source = """+img_list.ItemData(i)+"""
    destination = """+dir2.Path+"""
    Open "C:\rbcpy_line.bat" For Append As #1
        Print #1, "robocopy" & source; destination & " /E /SEC"
        'Print #1, "Ma ligne DOS 2"
     Close #1
Next

J'ai essayé ça aussi xD

edit 2 : en trafiquant le code (bob le bricoleur

) il semblerait que ce soit le type de la fonction qui accueille l'objet de la listbox qui poserait problème...
Ce n'est pas un string ? O_o
Merci

**Lauwliett** · 27/05/2011, 11h39

Bon, j'ai trouvé la solution a mon probleme, enfin partiellement car Robocopy semble faire des siennes...

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub copie_fichier_Click()
'----------------------------------------------------------------------------------------------
'Procédure qui lance un fichier .bat qui se trouverais sur le serveur
'Elle écrit dans le fichier .bat et se fichier .bat lance robocopy
'Avec les dossier source et destination en parametre.
'----------------------------------------------------------------------------------------------
 
    'MsgBox "il y a " & CStr(GetSelectedItems(img_list)) & "  item(s) sélectionné(s)"
    Dim ret As Long
    Dim i As Integer
    Dim nb_ligne As Integer
    Dim destination As String
    Dim source As String
    nb_ligne = GetSelectedItems(img_list)
    'Pour chaque ligne de la list box on rajoute une ligne dans le .bat
    'les """ sont la pour faire en sorte que les dossiers avec plus de 6
    'caractères passent sans problemes ! a chaque tour de boucle on ouvre le
    'fichier, on rajoute la ligne, et on le ferme ect...
    For i = 0 To nb_ligne
        source = GetItemText(i)
        destination = dir2.Path
        source = "" + source + ""
        destination = "" + destination + ""
        Open "C:\rbcpy_line.bat" For Append As #1
            Print #1, "robocopy " & source, destination & " /SEC"
            'Print #1, "Ma ligne DOS 2"
        Close #1
    Next
        Open "C:\rbcpy_line.bat" For Append As #1
            Print #1, "pause"
            'Print #1, "Ma ligne DOS 2"
        Close #1
    'On sort de la boucle, et on lance le bat obtenu !
    '(On ne va pas le lancer à chaque tour de boucle hein !)
    ret = Shell("C:\rbcpy_line.bat", vbNormalFocus)
End Sub

Lorsque je ne selectionne qu'un fichier, il y'a bien dans mon .bat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
robocopy S:\Stage\Projet1.ico s:\Dossiertest /SEc
pause

Mais robocopy ajoute automatiquement un antislash a la fin de mon .ico, et il le prends comme un dossier ducoup il plante

Vous avez déjà eu ce genre de probleme ?
Comment faire comprendre a robocopy qu'il ne faut pas ajouter d'antislash a projet1.ico ? j'ai balayé toute les options sur dos je ne vois pas comment faire, merci

ps : Pour copier des dossier il marche nickel maintenant

**iclic** · 27/05/2011, 12h32

Bonjour,

Et si tu essayais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Open "C:\rbcpy_line.txt" For Append As #1

Ouvre ton fichier comme un simple fichier texte,
puis tu écris dans ce fichier texte tes commandes, tu fermes ton fichier.

Puis tu te sers de l'instruction "rename" pour changer le nom du fichier:
"rbcpy_line.txt" en "rbcpy_line.bat"

Ensuite tu lances ton fichier .bat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    ret = Shell("C:\rbcpy_line.bat", vbNormalFocus)

**OhMonBato** · 27/05/2011, 13h53

Bonjour,

ce probleme n'a rien a voir avec VB6, c'est un probleme de syntaxe de ton instruction.
Il suffit d'aller voir sur Google pour trouver que la syntaxe pour copier un fichier est de type :

robocopy source destination FichierACopier

Un lien parmi tant d'autres qui explique la syntaxe de Robocopy

**Lauwliett** · 27/05/2011, 14h05

@OhMonBato : Oui, je m'en suis rendu compte juste avant de partir manger, j'ai honte, tout ce temps perdu...

J'ai aussi eu un peu de mal pour obtenir dans mes variables les chaines de caracteres de sorte a ce que ça corresponde aux exigences de syntaxe de robocopy

ducoup ça fait un peu code "bricolé", mais tout marche !

Si ça peut servir, le code pour generer une ligne robocopy en fonction de Drive/dir/filelistbox et listbox
code pour fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Private Sub copie_fichier_Click()
'----------------------------------------------------------------------------------------------
'Procédure qui lance un fichier .bat qui se trouverais sur le serveur
'Elle écrit dans le fichier .bat et se fichier .bat lance robocopy
'Avec les dossier source et destination en parametre.
'----------------------------------------------------------------------------------------------
 
    'MsgBox "il y a " & CStr(GetSelectedItems(img_list)) & "  item(s) sélectionné(s)"
    Dim ret As Long
    Dim i As Integer
    Dim nb_ligne As Integer
    Dim destination As String
    Dim source As String
    Dim fichier As String
    nb_ligne = GetSelectedItems(img_list)
    'Pour chaque ligne de la list box on rajoute une ligne dans le .bat
    'les """ sont la pour faire en sorte que les dossiers avec plus de 6
    'caractères passent sans problemes ! a chaque tour de boucle on ouvre le
    'fichier, on rajoute la ligne, et on le ferme ect...
    For i = 0 To nb_ligne - 1
    'on joue avec les trois variables fichier, source et destination pour récuperer la chaine de caractere voulu :
        source = GetItemText(i)
        fichier = Nomfichier(source)
        source = dir1.Path
        destination = dir2.Path
        'on rajoute les guillemets a source et a destination :
        source = "" & source & ""
        destination = "" & destination & ""
        Open "C:\rbcpy_line.bat" For Append As #1
            Print #1, "robocopy " & source, destination, fichier & " /SEC"
            'Print #1, "Ma ligne DOS 2"
        Close #1
    Next
        Open "C:\rbcpy_line.bat" For Append As #1
            Print #1, "pause"
            'Print #1, "Ma ligne DOS 2"
        Close #1
    'On sort de la boucle, et on lance le bat obtenu !
    '(On ne va pas le lancer à chaque tour de boucle hein !)
    ret = Shell("C:\rbcpy_line.bat", vbNormalFocus)
End Sub

code pour dossier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub copie_dossier_Click()
'----------------------------------------------------------------------------------------------
'Procédure qui lance un fichier .bat qui se trouverais sur le serveur
'Elle écrit dans le fichier .bat et se fichier .bat lance robocopy
'Avec les dossier source et destination en parametre.
'----------------------------------------------------------------------------------------------
 
    'MsgBox "il y a " & CStr(GetSelectedItems(img_list)) & "  item(s) sélectionné(s)"
    Dim ret As Long
    Dim i As Integer
    Dim nb_ligne As Integer
    Dim destination As String
    Dim source As String
    nb_ligne = GetSelectedItems(img_list)
    'Pour chaque ligne de la list box on rajoute une ligne dans le .bat
    'les """ sont la pour faire en sorte que les dossiers avec plus de 6
    'caractères passent sans problemes ! a chaque tour de boucle on ouvre le
    'fichier, on rajoute la ligne, et on le ferme ect...
    'IL FAUT TROUVER COMMENT PASSER EN PARAMETRE LA VARIABLE SOURCE ET DESTINATION
    For i = 0 To nb_ligne
    '    source = """ + img_list.ItemData(i) + """
    '    destination = """ + dir2.Path + """
        source = GetItemText(i)
        destination = dir2.Path
        source = "" + source + ""
        destination = "" + destination + ""
        Open "C:\rbcpy_line.bat" For Append As #1
            Print #1, "robocopy " & source, destination & " /SEC"
            'Print #1, destination, source
            'Print #1, "Ma ligne DOS 2"
        Close #1
    Next
        Open "C:\rbcpy_line.bat" For Append As #1
            Print #1, "pause"
            'Print #1, "Ma ligne DOS 2"
        Close #1
    'On sort de la boucle, et on lance le bat obtenu !
    '(On ne va pas le lancer à chaque tour de boucle hein !)
    ret = Shell("C:\rbcpy_line.bat", vbNormalFocus)
End Sub

Je vous remercie de votre aide, comme je débute en VB 6.0 ... J'ai un peu de mal parfois ^-^' (Les aides sur les forums sont souvent en VB.net...

**OhMonBato** · 27/05/2011, 14h49

Le code de tes 2 procedures etant tres proche, tu peux ecire une seule sub que tu appelles depuis tes 2 boutons (je suppose que ce sont des boutons de commande ?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Cmdcopie_fichier_Click()
'----------------------------------------------------------------------------------------------
'Procédure qui lance un fichier .bat qui se trouverais sur le serveur
'Elle écrit dans le fichier .bat et se fichier .bat lance robocopy
'Avec les dossier source et destination en parametre.
'----------------------------------------------------------------------------------------------
Copie 0
End Sub
 
Private Sub CmdCopie_dossier_Click()
'----------------------------------------------------------------------------------------------
'Procédure qui lance un fichier .bat qui se trouverais sur le serveur
'Elle écrit dans le fichier .bat et se fichier .bat lance robocopy
'Avec les dossier source et destination en parametre.
'----------------------------------------------------------------------------------------------
Copie 1
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Public Sub Copie(TypeCopie as byte)
'----------------------------------------------------------------------------------------------
'Procédure qui lance un fichier .bat qui se trouverais sur le serveur
'Elle écrit dans le fichier .bat et se fichier .bat lance robocopy
'Avec les dossier source et destination en parametre.
'----------------------------------------------------------------------------------------------
 
    Dim ret As Long
    Dim i As Integer
    Dim nb_ligne As Integer
    Dim destination As String
    Dim source As String
    Dim Nf as byte
 
    Nf  = FreeFile
    nb_ligne = GetSelectedItems(img_list)
    'Pour chaque ligne de la list box on rajoute une ligne dans le .bat
    'les """ sont la pour faire en sorte que les dossiers avec plus de 6
    'caractères passent sans problemes ! a chaque tour de boucle on ouvre le
    'fichier, on rajoute la ligne, et on le ferme ect...
    'IL FAUT TROUVER COMMENT PASSER EN PARAMETRE LA VARIABLE SOURCE ET DESTINATION
    For i = 0 To nb_ligne
      source = GetItemText(i)
      If TypeCopie = 0 then
        'Copie de fichier
        fichier = Nomfichier(source)
        source = dir1.Path
      End If
      destination = dir2.Path
      Open "C:\rbcpy_line.bat" For Append As #Nf
      If TypeCopie = 0 then
        'Copie de fichier
        Print #1, "robocopy " & source, destination, fichier & " /SEC"
      Else
        'Copie de repertoire
        Print #Nf, "robocopy " & source, destination & " /SEC"
      End If
      Close #Nf
    Next
    Open "C:\rbcpy_line.bat" For Append As #1
    Print #Nf, "pause"
    Close #Nf
    'On sort de la boucle, et on lance le bat obtenu !
    '(On ne va pas le lancer à chaque tour de boucle hein !)
    ret = Shell("C:\rbcpy_line.bat", vbNormalFocus)
End Sub

Je ne vois pas trop l'interet des lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

source = "" & source & ""

je les ai donc sucre, mais comme je n'ai pas VB sur cette machine je n'ai pas teste mon code.
J'ai egalement renomme tes boutons de commande (si ce sont bien des boutons de commande). Mettre des prefixes explicites sur le nom des controles aide beaucoup a la relecture d'un code. (Le standard des prefixes propose par Microsoft)

Pour les recherches sur Google, tapes par exemple :

mot_recherche VB6 -Net

Ca n'elimine pas tout mais ca filtre deja pas mal les pages dedies a VB.Net plutot qu'a VB6