Dim Dir As String Private Sub Command1_Click() Dir = "c:" On Error Resume Next CMD.InitDir = Dir CMD.ShowOpen End Sub Private Sub Command2_Click() Dir = "d:" On Error Resume Next CMD.InitDir = Dir CMD.ShowOpen End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question