Discussion :

[francko59]

bonjour a tous
je suis moins que débutant en visual basic mais j'essaye de comprendre et je m'y intéresse
mon soucis est
je désire créer une petite application en visual Basic 2010
avec 3 textbox + bouton
textbox1 UserName
textbox2 Ancienne Machine
textbox 3 Nouvelle Machine

bouton 1 Bureau

quand je clic sur le bouton Bureau la formule en dos serais
xcopy/Y \\textbox 2\c$\users\textbox 1\Desktop \\textbox3\c$\users\textbox 1\Desktop\

est-ce possible et si oui comment faire

je vous remercie pour cet aide
Francko59

[Phil Rob]

Bonjour,

La commande suivante exécute des EXE en leur passant les paramètres : Process.Start("NomEtCheminDeLExe", "Paramètres requis, si nécessaire").
Par exemple :

Code :

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

1
2
 
Process.Start("xcopy", "/Y \\textbox 2\c$\users\textbox 1\Desktop \\textbox3\c$\users\textbox 1\Desktop\") ' Ce n'est qu'un exemple à tester pour cette commande

Par ailleurs :

Le langage n’offre aucune méthode de copie de dossier. Il faut donc la programmer. Voici une procédure qui réalise la copie récursive des fichiers et sous dossiers d’un répertoire donné. Les blocs Try d’interception d’erreurs sont destinés ici à éviter l’arrêt de la procédure lorsqu’elle est confrontée à un dossier ou à un fichier protégé par le système.

Par exemple :

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
 
Private Sub CopieDossiers(ByVal DossierSource As String, ByVal DossierCible As  String)
' La classe Path donne notamment la méthode GetFileName qui permet d’extraire le nom du fichier ou du sous dossier d’un chemin complet
  Directory.CreateDirectory(DossierCible)
  Try
    Dim MesFichiers() As String = Directory.GetFiles(DossierSource)
    Dim UnFichier As String
    For Each UnFichier In MesFichiers
        File.Copy(UnFichier, DossierCible & "\" & Path.GetFileName(UnFichier))
    Next
  Catch
  End Try
  Try
    Dim SousDossiers() As String = Directory.GetDirectories(DossierSource)
    Dim UnDossier As String
    For Each UnDossier In SousDossiers
        CopieDossiers(UnDossier, DossierCible & "\" & Path.GetFileName(UnDossier))
    Next
  Catch
  End Try
End Sub

J'espère que ceci te donnera des pistes de recherche ...

[francko59]

bonjour
je te remercie je test ça et je vous tiens au courant
encore merci de cette aide

[Phil Rob]

A propos de la commande Proces.Start, la syntaxe de celle-ci est absolument exacte :

Code :

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

1
2
3
 
' Pour créer Tmp2 sur D: et y copier tout le contenu de D:\Tmp
Process.Start("XCOPY.EXE", "d:\Tmp\* d:\Tmp2\* /s")

Bon amusement,