ZTPdiffusion
Messages postés46Date d'inscriptionlundi 16 avril 2001StatutMembreDernière intervention 7 mars 2002 21 déc. 2001 à 19:25
Salut
Private Sub Form_Load()
Dir1.Path = "c:"
Drive1.Drive = "c:"
File1.Pattern = "*.*"
End Sub
'
' CommonDialog
'
Private Sub Drive1_change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_change()
File1.Path = Dir1.Path
End Sub