武陵源旅游官网:VB 关于文件创建的一个问题...

来源:百度文库 编辑:神马品牌网 时间:2024/05/08 14:16:00
我用API 取得了系统目录
Dim s As String * 255
GetSystemDirectory s, 255
MsgBox s

然后我想在系统目录下创建一个文件夹怎么创建呢?
给出代码 好嘛 谢谢了`~~~~~`
晕 程序能运行 但是创建不出来啊??
为什么啊?

Dim s As String * 255 ,fd as string

GetSystemDirectory s, 255
fd = s & "\abc"
If Dir(fd, vbDirectory) = "" Then
'如果文件夹不存在
mkdir fd '创建一个
else
'有了
End If

MkDir s & "\" & yourdir