Discussion :

[Cem]

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 :

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

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

[philben]

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 :

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
 
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 :

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

1
2
 
Debug.Print GetRootFolderAmovibleDrive("corsair")

cordialement,

philippe

[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)

[ilank]

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

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
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

[gwems]

ah la la vous parlez chinois pour moi la

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

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
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 ???

[ilank]

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 :

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

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