Schijfkeuze in macro

[fotofons]

Ik gebruik een excelbestand wat geopend wordt vanaf een alleen lezen schijf.
Vanuit dit excel bestand wil ik een werkblad exporteren en opslaan als pdf.
Afhankelijk van de situatie is of alleen schijf C: of alleen schijf W: beschikbaar voor de opslag.
Hoe regel ik in het macro dat de juiste schijf wordt geselecteerd?

 

[edmoor]

Ik gebruik dit. Wellicht dat je er iets aan hebt:

Sub GetDrive()
    Dim FSO As New FileSystemObject
    Dim drv As Drive
    Dim i As Byte
    Dim z As Byte
    
    z = 1
    For i = 65 To 90
        On Local Error Resume Next
        Set drv = FSO.GetDrive(Chr(i) & ":")
        If Err.Number = 0 Then
            z = z + 1
            With Sheets("Blad1")
                .Cells(z, 1) = Chr(i)
            End With
        End If
        On Local Error GoTo 0
    Next i
    
    Range("A2:A" & z).Select
    ActiveWorkbook.Names.Add Name:="SCHIJVEN", RefersToR1C1:=Selection
    Application.Goto [A1]
End Sub

Function Schrijftest(Map As String) As Boolean
    Schrijftest = True
    
    On Error Resume Next
    Open Map & "\Schrijftest.tmp" For Output As #1
    If Err.Number <> 0 Then
        Schrijftest = False
    Else
        Close #1
        Kill Map & "\Schrijftest.tmp"
    End If
End Function

De functie Schrijftest zou voldoende voor je kunnen zijn.

 

[fotofons]

Dank je voor de snelle reactie.
Vorig weekend uitgeprobeerd.
Werkte niet en voor mij is het te lastig.

Intussen andere en eenvoudigere oplossing gekregen.

BEDANKT voor de moeite.