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 & "\" &