Tester si une partition existe ou pas

[vmax67]

Bonjour à tous

Comment faire faire pour savoir si une partition D: existe sur un pc ou pas.

J'ai une macro qui crée des répertoires et des sous répertoires sur une partition D:.

J'aimerai d'abord faire un test si cette partition D: est existante
si oui on exécute le code pour la création des répertoires sur la partition D:
si non on exécute le code pour la création des répertoires sur la partition C:

ci-dessous mon code

Function RépertoireExiste(Chemin As String) As Boolean
On Error Resume Next
RépertoireExiste = GetAttr(Chemin) And vbDirectory
If RépertoireExiste = True Then
Exit Function
Else
MkDir (Chemin)
End If
End Function

Sub tester()
Call RépertoireExiste("E:\COMPETITIONS1")

Call RépertoireExiste("E:\COMPETITIONS1\E-3B")

End SUb

par avance merci

VMAX

 

[Staple1600]

Re : Tester si une partition existe ou pas

Bonjour à tous

Quand je lis partition, je réponds WMI

Sub Partitions()
Dim strComputer$
Dim objWMIService
Dim Results$
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colDiskPartitions = objWMIService.ExecQuery _
    ("Select * from Win32_DiskPartition")
 
For Each objPartition In colDiskPartitions
   Results = "Block Size: " & objPartition.BlockSize & Chr(13)
   Results = Results & "Bootable: " & objPartition.Bootable & Chr(13)
   Results = Results & "Boot Partition: " & objPartition.BootPartition & Chr(13)
   Results = Results & "Description: " & objPartition.Description & Chr(13)
   Results = Results & "Device ID: " & objPartition.DeviceID & Chr(13)
   Results = Results & "Disk Index: " & objPartition.DiskIndex & Chr(13)
   Results = Results & "Index: " & objPartition.Index & Chr(13)
   Results = Results & "Name: " & objPartition.Name & Chr(13)
   Results = Results & "Number Of Blocks: " & _
        objPartition.NumberOfBlocks & Chr(13)
   Results = Results & "Primary Partition: " & _
        objPartition.PrimaryPartition & Chr(13)
   Results = Results & "Size: " & objPartition.Size & Chr(13)
   Results = Results & "Starting Offset: " & _
        objPartition.StartingOffset & Chr(13)
   Results = Results & "Type: " & objPartition.Type
Next
MsgBox Results
End Sub

Mais il y a plus simple avec ce que tu as déjà 😉, voir avec Dir, non ?

Mais j'ai lu partition, alors tel le toutou de Pavlov, hop direct j'embraye sur WMI et vbscript en mode VBA.

PS: Merci au Script Center de Microsoft, et à mes touches CTRL, C et V.

 

[Staple1600]

Re : Tester si une partition existe ou pas

Re


J'ai rangé Kiki à la niche, et sorti le Dir

Je te laisse tester les codes ci-dessous sur ton PC en l'adaptant à ta problématique.

Sub TestREPERTOIRE()
If TestRep("C:\TEMP") Then
        MsgBox "Le répertoire existe"
        'ton code avec MkDir
    Else
        MsgBox "Le répertoire n'existe pas"
    End If
End Sub

Public Function TestRep(Chemin$) As Boolean
On Error GoTo Fin
TestRep = Dir(Chemin, 16) <> vbNullString
Fin:
On Error GoTo 0
End Function

 

[vmax67]

Re : Tester si une partition existe ou pas

Bonjour

c'est super, c'est ce que je cherchai comme code

Merci

VMAX