Drive1 geht net

[SPN_X]

Hey,
Ich habe ein prog des eine ttf datei enthält. Wenn ich den Button klicke soll er die datei automatisch in den ordner Windows\Fonts schreiben.

Private Sub Command1_Click()
If Dir(Drive1.Drive & "\Windows\Fonts\" & "Christian Franck Freehandf") <> "" Then
Else
RES_Entladen "101", "CUSTOM", "Christian Franck Freehandf"
End If
End Sub

Private Sub RES_Entladen(ID_Ressource As String, _
      Typ_Ressource As String, FileName As String)
  Dim sType As String
  Dim lFile As Long
  Dim lID As Long
  Dim bt() As Byte

  On Error Resume Next
  lFile = FreeFile
  Open Drive1.Drive & "\Windows\Fonts\" & FileName For Binary As #lFile
  lID = CLng(ID_Ressource)
  sType = Typ_Ressource
  bt = LoadResData(lID, sType)
  Put #lFile, , bt()
  Close #lFile
End Sub

Nun, das ist mein Code. Ich habe nur einen Button und drive1.
Wenn ich den DirPart festlege mit C:\Wind.... geht es aber es kann ja auch sein das jemand Windows auf D: hat und hab gedacht ich mache dann ein Drive hin. aber so geht der code nicht mehr.

Sollte ich des mit c:\Wind.. gestlegen oder: was habe ich falsch gemacht ?

 

[wincnc]

Hallo, versuch´s mal mit:

Open Environ("SystemRoot") & "\Fonts\" & FileName For Binary As #lFile
' .....