VB 关于文件创建的一个问题...

来源:百度知道 编辑:UC知道 时间:2024/05/14 06:36:29
我用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