Contrôle :Navigation avec l'explorateur de Windows

Version imprimable

06/09/2007, 19h40
Cem

Contrôle :Navigation avec l'explorateur de Windows
Je fais régulièrement des sauvegarde de ma BD sur une clef USB pour utiliser les données sur un autre PC au moyen du code suivant:
Code:

1 2 3 Set FS = CreateObject("Scripting.FileSystemObject") 'USBPath=Lettre de l'emplacement de la clé USB FS.CopyFile Data1Path, USBPath, True
Comme la lettre du lecteur de la clef USB change au gré des PC et des branchements/débranchements de périphériques je dois chaque fois rechercher manuellement ce lecteur.

Y'a-t-il un moyen simple d'insérer dans mon formulaire un contrôle(ActiveX?,lequel?, Comment le paramétrer?) qui me permette de naviguer dans l'explorateur de windows et de sélectionner le lieu de ma sauvegarde?

Merci à mon sauveur

Cem

bonjour,

vous pouvez tester cette fonction qui retourne le dossier racine d'un drive amovible en lui passant le nom de volume de la clef USB.

Si elle ne trouve pas la clef (non connectée ou non prête), retourne "".

Nécessite la référence Scripting Runtime

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Function GetRootFolderAmovibleDrive(ByVal sNomVolume As String) As String
   On Error GoTo fin
   Dim oSFS As Scripting.FileSystemObject
   Dim oSD As Scripting.Drive
   Set oSFS = New Scripting.FileSystemObject
   For Each oSD In oSFS.Drives
      If oSD.DriveType = Removable And oSD.IsReady Then
         If oSD.VolumeName = sNomVolume Then
            GetRootFolderAmovibleDrive = oSD.RootFolder
            Exit For
         End If
      End If
   Next oSD
fin:
   Set oSD = Nothing
   Set oSFS = Nothing
   Exit Function
End Function

exemple d'utilisation

Code:

1
2
 
Debug.Print GetRootFolderAmovibleDrive("corsair")

cordialement,

philippe

28/04/2009, 14h19
gwems

bjrs quand vous dites "Nécessite la référence Scripting Runtime" comment on fais pr ajouter une référence ??

pas moyen de trouver scripting runtime ds les référence (ps: je tourne sous access 2007)

Bonjour,
le Scripting runtime n'est pas nécessaire, il s'agit de la DLL contenant les objets "Scripting.FileSystemOject".
System32\scrrun.dll

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function GetRootFolderAmovibleDrive(ByVal sNomVolume As String) As String
   On Error GoTo fin
   Dim oSFS,oSD As Scripting.Drive
   'Set oSFS = New Scripting.FileSystemObject 'est identique à la ligne suivante
    Set oSFS=CreateObject("Scripting.FileSystemObject")
   For Each oSD In oSFS.Drives
      If oSD.DriveType = Removable And oSD.IsReady Then
         If oSD.VolumeName = sNomVolume Then
            GetRootFolderAmovibleDrive = oSD.RootFolder
            Exit For
         End If
      End If
   Next oSD
fin:
   Set oSD = Nothing
   Set oSFS = Nothing
   Exit Function
End Function

ah la la vous parlez chinois pour moi la

dans quoi dois-je placer les lignes de code??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function GetRootFolderAmovibleDrive(ByVal sNomVolume As String) As String
   On Error GoTo fin
   Dim oSFS, oSD As Scripting.Drive
   'Set oSFS = New Scripting.FileSystemObject 'est identique à la ligne suivante
    Set oSFS = CreateObject("Scripting.FileSystemObject")
   For Each oSD In oSFS.Drives
      If oSD.DriveType = Removable And oSD.IsReady Then
         If oSD.VolumeName = sNomVolume Then
            GetRootFolderAmovibleDrive = oSD.RootFolder
            Exit For
         End If
      End If
   Next oSD
fin:
   Set oSD = Nothing
   Set oSFS = Nothing
   Exit Function
End Function

Dans un module ou dans la procédure ???

et comment faire pour par exemple aficher dans un msgbox la lettre du port utiliser ???

Bonjour gwems,
on peut imaginer une liste déroulante dans ton formulaire te permettant de sélectionner le lecteur de sauvegarde.

Dans le formulaire crée une nouvelle liste déroulante : Pour l'exemple je l'appelle LstLecteurs.
Propriété du contrôle :
Nbr Colonnes : 2
Largeur colonne : 0;5
Origine source : Liste de valeurs.

Deux colonnes, la première contient la lettre du lecteur : C:\, E:\ ...,
la seconde colonne affiche le nom du volume + la lettre :

A l'ouverture du formulaire, je vais remplir la liste déroulante des lecteurs prêts.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Form_Open() GetLecteurs() End sub Private Sub GetLecteurs() Dim SysF, Lecteur Set SysF=CreateObject("Scripting.FileSystemObject") For Each Lecteur In SysF.Drives If Lecteur.DriveType<>0 And Lecteur.DriveType<4 And Lecteur.IsReady Then LstLecteurs.RowSource=Iif(LstLecteurs.Rowsource="","",LstLecteurs.Rowsource & ";") & Lecteur.DriveLetter & ":\;" & Lecteur.VolumeName & " (" & Lecteur.DriveLetter & ":)" Next Set SysF=Nothing End sub