Discussion :

[flyjodel]

Bonjour à tous,

je développe une petite application qui liste les fichiers d'un répertoire, puis qui modifie l'un de ces fichiers en cliquant dessus (une petite moulinette).

Quand j'exécute cette application, lors du chargement de la Form , j'exécute la commande suivante :

Code :

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

1
2
Path = "f:\documents\essai"
ChDir Path

mais le lecteur et le répertoire restent ceux où est lancée l'application, à savoir "C:\TEMP\VB6\appli\"

quand je clique dans la fenêtre qui liste les lecteurs sur F:, là s'affiche le bon répertoire "f:\documents\essai"

Cela me rappelle le bon vieux DOS, où l'on peut changer le répertoire associé à un disque grâce à "CD F:\documents\essai\" par exemple, commande qui fait rester le répertoire actuel à c:\ par exemple, lecteur duquel la commande a été appelée. Pour pouvoir travailler dans F:\documents\essai\, il faut taper "F:" + ENTREE

Comment faire pour afficher directement le bon lecteur avec le bon répertoire ?

voici ce que j'utilise pour afficher les lecteurs et répertoires cliqués :

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
 
' Change Directory...
' ===================
Private Sub Directory_Change()
    Path = Directory.Path
    ChDir Path
    NomFichierTexte(0).Text = Directory.Path
    File1.Path = Path
    File1.Refresh   ' Update file list box
End Sub
 
' Change Drive...
' ===============
Private Sub Drive_Change()
    Directory.Path = Drive.Drive
    ChDir Directory.Path
    NomFichierTexte(0).Text = Directory.Path
    File1.Path = Directory.Path
    File1.Refresh   ' Update file list box
End Sub

[SfJ5Rpw8]

ben c'est comme sous DOS .. tu as une commande pour changer de répertoire chdir .. et une commande pour changer de disque chdrive...

[flyjodel]

et ben merci beaucoup, je ne connaissais pas ChDrive !