Utilise un controle CommonDialog
Dans Visual Basic, tu cliques sur :
Projets/Composants
Microsoft Common Dialog Control X.y
Tu auras alors un nouveau contrôle dans ta barre d'outils. Insères-en un sur ton formulaire.
Si ton bouton Parcourir s'appelle cmdParcourir, alors
Private Sub cmdParcourir_Click()
Dim repertoire_destination As String
Dim sFilename As String
Dim toto() As String
repertoire_destination = "C:\photos_employes\"
CommonDialog1.ShowOpen
toto = Split(CommonDialog1.FileName, "\", , vbTextCompare)
FileCopy CommonDialog1.FileName, repertoire_destination & toto(UBound(toto))
End Sub
|
Manu