cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008
-
5 mars 2008 à 13:29
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024
-
5 mars 2008 à 15:06
Bonjour
Je dévellope actuellement une petite appli en VB.
A un certain moment je demande à l'utilisateur de sélectionner un dossier, pour cela je me sers de la boîte de dialogue "FolderBrowserDialog".Je voudrais récupéré le chemin que sélectionne l'utilisateur et le stocker dans une variable mais j'ignore cmt récupéré cette info.
Merci de votre aide
cs_GorGor33
Messages postés29Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention26 mars 2008 5 mars 2008 à 14:36
Merci j'ai fais cela.
Si cela t'intéresse je te joins le code inachevé de mon appli.
En ce moment je suis sur la procédure CopieRépertoire qui est censée copier le contenue du répertoire choisi dans un dossier C:\Sauvegarde, qui doit être crée lors de la première utilisation sur le poste client(un if suffira?)
J'ai vu ton CV sur ton site, ne rigole pas trop devant mon code :P
Public
Class Form1
Private
Sub Form1_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
MyBase.Load
End
Sub
Dim dirsource
As
String
'affichage de la boîte de dialogue permettant le choix du répertoire source
Private
Sub bt1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles bt1.Click
Me.FolderBrowserDialog1.ShowDialog()
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK
Thendirsource = FolderBrowserDialog1.SelectedPath
Else
Me.Close()
End
If
End
Sub
Private
Sub btAnnuler_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles btAnnuler.ClickMsgBox(
"Sauvegarde obligatoire une fois pas mois!!")
Me.Close()
End
Sub
Private
Sub CopieRepertoire(
ByVal RepertoireSource
As
String,
ByVal RepertoireDestination
As
String)
End
Sub
Private
Sub btOk_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles btOk.ClickCopieRepertoire(dirsource,