迪奥花样甜心香水100:VB 高手请进

来源：百度文库 编辑：中科新闻网 时间：2024/05/15 11:29:51
一般的安装程序都能新建文件夹，请问代码应该怎样写？
open "c:/wenjian.txt" for append as #1 可以在c盘建立一个叫wenjian的文本文件，请问如果建文件夹怎么写代码？

Private sub Command1_click
If Dir(App.Path & "\新建文件夹", vbDirectory) <> "" Then
MsgBox "目录已存在"
else
MkDir (App.Path & "\新建文件夹")
end if
exit sub

vb高手请进！！！！！！！！！！！！！！1 VB高手请进啊！ VB编程高手请进 VB高手请进 VB高手请进 VB高手请进 VB高手请进 vb高手请进来 vb高手请进 vb高手请进