Trouver le disque dur principal

[alfazoulou]

Bonjour à toutes et à tous,
je voudrais savoir comment faire pour trouver le disque dur principal à l'aide d'un code VBA.
merci d'avance

 

[alfazoulou]

Re : Trouver le disque dur principal

plus exactement je voudrais que l'utilisateur puisse indiquer la lettre du disque dur dans lequel créer un fichier.
la lettre saisie serait nottée dans la cellule nommée "lecteur" par exemple et un dossier nommée "toto" serait créé dans le disque dur.
j'avais touvé un bout de code qui fonctionne correctement avec
sFolderName = "C:\toto"
mais quand je remplace par sFolderName = "lecteur:\toto" ça ne marche plus.
pouvez vous m'aider svp?
Dim lecteur As String
lecteur = Range("lecteur").Value
' Initialisation du nom du dossier
sFolderName = "lecteur:\toto"

Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"

 

[kjin]

Re : Trouver le disque dur principal

Bonjour,
Sans doute

sFolderName = lecteur & ":\toto"

a+
kjin

 

[alfazoulou]

Re : Trouver le disque dur principal

avec le code ci dessous ça marche

Dim fso 'As Scripting.FileSystemObject
Dim fd 'As Scripting.Folder
Dim sFolderName 'As String
Dim lecteur As String
'lecteur = Range("lecteur").Value
' Initialisation du nom du dossier
sFolderName = "C:\facil'devis"

Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"
Else
'MsgBox "Le dossier " & sFolderName & " existe déjà!"
End If

mais comme je doit pouvoir choisir le disque dur, désigné dans la cellule "lecteur" quand je remplace C par "lecteur" ou "lecteur.value" ça ne fonctionne plus.

 

[alfazoulou]

Re : Trouver le disque dur principal

merci pour ta réponse mais avec ta modif le dossier créé se nomme jsute toto et non pas C\toto ou E\toto suivant la lettre contenu dans ma celule nommée "lecteur"

 

[alfazoulou]

Re : Trouver le disque dur principal

😕

 

[alfazoulou]

Re : Trouver le disque dur principal

résolu.
il fallait juste modifier cette ligne:
sFolderName = Range("lecteur").Value & ":\toto"
merci

 

[kjin]

Re : Trouver le disque dur principal

Re,
🙄

Sub CreerDossier()
Dim fso As Object
Dim fd As Object
Dim sFolderName As String
Dim lecteur As String
lecteur = Sheets("Feuil1").Range("A1")

'ou sinon la cellule A1 si a bien été nommé "lecteur"  !
'lecteur = Sheets("Feuil1").Range("lecteur")

sFolderName = lecteur & ":\devis"
Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(sFolderName) Then
        Set fd = fso.CreateFolder(sFolderName)
        MsgBox "Le dossier " & sFolderName & " a été créé"
    Else
        MsgBox "Le dossier " & sFolderName & " existe déjà!"
    End If

End Sub

A+
kjin

 

[kjin]

Re : Trouver le disque dur principal

Re

résolu.
il fallait juste modifier cette ligne:
sFolderName = Range("lecteur").Value & ":\toto"
merci

Tu ne lis donc pas les réponses ?!
Parce que d'après toi...

lecteur = Range("lecteur")
sFolderName = lecteur & ":\toto"

...c'est pas la même chose ?
C'est pourtant ce que j'écris au #3
kjin 😡

 

[alfazoulou]

Re : Trouver le disque dur principal

merci Kjin
j'avais bien lu ta réponse mais j'ai essayé
sFolderName = lecteur & ":\toto"
sans
Dim lecteur As String
lecteur = Range("lecteur").Value
alors ça marchait pas.