Tester si une partition existe ou pas

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

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