可以啊,你看我的代码: Private Sub Form_Load() Dim fos as Object Set Fso = CreateObject("Scripting.FileSystemObject") ChDrive App.Path ChDir App.Path If Not Fso.FolderExists("你还好吗") Then Fso.CreateFolder ("你还好吗") Open "你还好吗\啊.txt" For Output As #1 Print #1, "HELLO!" Close #1 End End Sub
Private Sub Form_Load()
Dim fos as Object
Set Fso = CreateObject("Scripting.FileSystemObject")
ChDrive App.Path
ChDir App.Path
If Not Fso.FolderExists("你还好吗") Then Fso.CreateFolder ("你还好吗")
Open "你还好吗\啊.txt" For Output As #1
Print #1, "HELLO!"
Close #1
End
End Sub