VB在任意系统C盘吓建立文件夹和文件

Private Sub Command1_Click()
On Error Resume Next
Dim Buffer As String
Buffer = Space(MAX_PATH)
rtn = GetWindowsDirectory(Buffer, Len(Buffer))
WinPath = Left(Buffer, rtn)

Dim UserInput
UserInput = "1"

MkDir WinPath & "\" & UserInput
按下COMMAND1按钮时就建立一个文件夹，然后根据文件夹的路径保存SHELL.DRV这个文件请问怎么做``
Open  MkDir WinPath & "\1\SHELL.DRV" For Output As #5

'Open "MkDir WinPath & " \ " & UserInput & " \ " & SHELL.DRV" For Output As #5
Print #5, text1.Text
Close #5
我想了好久都想不出来`请大家帮忙解决`谢谢
End Sub

---

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
    Const MAX_PATH = 255
    Dim Buffer As String
    Dim rtn As Long
    Dim WinPath As String
    Dim UserInput As String
   
    Buffer = Space(MAX_PATH)
    rtn = GetWindowsDirectory(Buffer, Len(Buffer))
    WinPath = Left(Buffer, rtn)
   
    UserInput = "1"
    MkDir WinPath & "\" &