双击进入按钮的设计模式,输入以下代码,自己修改代码的存放路径保存即可。点击按钮就可以生成文件夹并打开生成的文件夹了。
Private Sub CommandButton1_Click()
Dim fso, fld, MZ, wjm
Dim s As Date
s = Now
shijian = Format(s, "yyyymmddhhmmss")
m = "C:\Users\HP08\Desktop\" & shijian
'新建文件夹代码,使用时间作为文件名
'MsgBox m
Set fso = CreateObject("scripting.filesystemobject")
Set fld = fso.createfolder(m)
'打开文件夹代码
Set MZ = CreateObject("wscript.shell")
MZ.Run m
End Sub