Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo Err
fso.CreateFolder (App.Path & "\file")
Err:
Debug.Print "文件已存在"如何将文件夹设为共享。
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo Err
fso.CreateFolder (App.Path & "\file")
Err:
Debug.Print "文件已存在"如何将文件夹设为共享。
解决方案 »
- 一个关于全局变量的问题,让我解不开了?脑子糊涂了.
- 如何把项目从Visaul Safe里删掉?
- 求助:怎样在datareport中显示记录号?
- 高分求解关于文件和目录的问题,不够再加
- Timer 控件问题,请各位大哥指点
- 邪门了,datareport打印预览,数据总少一行
- 救命贴!!!紧急求助!!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 如何取得datagrid中当前行的坐标值,因要用到buttonclick事件显示下拉框
- 如何使用RealPlayer插件???
- 关于winsock传输文件的问题.
- 为什么导出数据到access会被拒绝?
- 这是一个登记表的例子,在使用OptionBox控件时,为什么只选择了性别“女”,可是最后的MsgBox的提示是“男女”,这是为什么?
参见Net命令
查找以前的帖子.......