Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim NewDir As String
 
  If Shift = vbCtrlMask And KeyCode = vbKeyO Then
    NewDir = InputBox("Bitte Ordnernamen eingeben", "neuen Ordner erstellen")
    MkDir Pfad & "\" & NewDir
    [color=green]Pfad muß natürlich auch noch definiert werden :-)
        (siehe hierzu _
          [url=http://www.vbarchiv.net/archiv/tipp_details.php?pid=273]Standard _
          System-Ordner ermitteln[/url])[/color]
  End If
End Sub

Gruß
Marcus