Discussion :

[casavba]

Bonjour,

Je crée un fichier à l'aide d'une macro, cette macro est utilisé par plusieurs personne.

J'ai un souci au niveau du chemin où ce fichier va être créé.
Dans la macro j'ai définit ce chemin en "C:\" ---> Or certains utilisateurs n'ont pas le "C:\" ou encore ne sont pas en écriture sur ce dernier.

Est-il possible de lister toutes les directory qui sont en écriture et lecture pour un utilisateur donné ? (on est dans un réseau)

Merci

[mayekeul]

bonjour,

Code :

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

1
2
3
4
5
6
Sub ShowRemovableDrivesInfo()
Dim Drive As Object, MyDrives As String
For Each Drive In CreateObject("Scripting.FileSystemObject").Drives
    debug.print drive.driveletter
Next
End Sub

si ça peut)t'aider..

[casavba]

Merci Maykeul pour ta réponse.

Ton code me liste les drives.

Est-il possible de ne lister que les drives en écriture.

Merci.

[mayekeul]

cela devrait etre possible par cette voie je pense

Code :

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

1
2
3
4
5
6
7
8
Sub ShowRemovableDrivesInfo()
Dim FSo As New FileSystemObject
Dim fo As Folder, Drv As Drive
     For Each Drv In FSo.Drives
        Set fo = FSo.GetFolder(Drv.RootFolder)
        If GetAttr(fo.Path) And vbReadOnly Then Debug.Print fo.Attributes
     Next
End Sub

NB: tu dois rajouter le référence à "Microsoft Scripting Runtime"

[casavba]

Mayekeul,

Erreur d'exécution ( voir image).

[mayekeul]

je suppose que cela arrive sur cette ligne?

Code :

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

Set fo = FSo.GetFolder(Drv.RootFolder)

c'est un disque amovible?