如何在VB代码里实现新建一个文件夹或是文件？请给代码 谢谢

Question

新建文件夹  MKDir StrPath

Answer 1

新建文件
    Open "F:\ddd.txt" For Output As #1  '文本文件
    Close #1
    Open "F:\EEE" For Binary As #1      '二进制文件
    Close #1
----------------------------------------------------------------
www.cnskye.com
有不少好文章和源码..去看看吧
----------------------------------------------------------------

Answer 2

MKDir "c:\qq"
if dir("c:\qq\qq.txt" )="" then
Open "c:\qq\qq.txt" For Output As #1  
Close #1
end if    

Answer 3

'新建文件夹:
private sub form_load()
 set p_oFSO=CreateObject("Scripting.FileSystemObject")
End sub'增加一个按钮  为 cmdnew
private sub cmdnew_click()
 dim sNewFolder as string
 dim oFolder as folder
 
 on error goto error_handle
 sNewfolder=inputbox("请输入新建文件夹的名称")
 set oFolder=p_oFSO.CreateFolder(Trim(sNewfolder))
 msgbox "成功新建文件夹" error_handle：
 msgbox "在新建文件夹时发生如下错误"+chr(13)+Err.description
end sub

Answer 4

楼上的  你这里说的sNewfolder就是新文件夹名吗

Answer 5

Private Sub Command2_Click()
    
    Dim intFileNumber       As Integer
    'Create a folder
    MkDir "e:MyFolder"
    
    'Create a file
    intFileNumber = FreeFile
    Open "E:\MyFolder\a.txt" For Output As #intFileNumber
    
    Close #intFileNumber
    
End Sub