Sayın benremix;
sorum şu şekilde çözülmüştür
Dim BB As String
aa = CurrentProject.Path
BB = left(aa, 1)
Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")

If BB = "C" Then
Set drv = fso.drives.Item("c")
ElseIf BB = "D" Then
Set drv = fso.drives.Item("D")
ElseIf BB = "E" Then
Set drv = fso.drives.Item("E")
ElseIf BB = "F" Then
Set drv = fso.drives.Item("f")
ElseIf BB = "G" Then
Set drv = fso.drives.Item("G")
ElseIf BB = "I" Then
Set drv = fso.drives.Item("I")
ElseIf BB = "H" Then
Set drv = fso.drives.Item("H")
ElseIf BB = "H" Then
Set drv = fso.drives.Item("H")
End If