在pb里如何创建目录？？

[iori99]

如题，就像window中右键创建文件夹一样

[liubocy]

定义外部函数:
function boolean CreateDirectoryA(ref string pathname,int sa) Library "Kernel32.dll"

代码:
boolean lb_rtn
string ls_dir
ls_dir = "c:\testdir"
lb_rtn=CreateDirectoryA(ls_dir,0)
if lb_rtn then
Messagebox("Succeed","Succeed!" )
else
Messagebox("Failed","Failed!")
End if

[wangxichen]

用createdirectory()函数创建
例如：要在C盘根目录下创建“111“文件夹，则为：
createdirectory("C:\111")

[wangxichen]

楼上用外部函数的方法也可以

[iori99]

我用过了createdirectory()
但提示Uknown Function Name:createdirectory

[wangxichen]

可能是你用的PB版本较低，
使用PFC里的pfc_nst_filesrv对象，其中有of_createdirectory()函数
使用方法和刚才说的一样

[liubocy]

版本过低，我的也是。
9.0有这个函数

[iori99]

我用的是6.5版本的，在pfc_nst_filesrv里我找了一下of_createdirectory()函数，
可里面只是一句话：return了一个常量，而且没有祖先代码，那么这个函数的代码是在哪里呢？想不通，请各位高手指教！

[feixianzhi]

api

定义外部函数:
function boolean CreateDirectoryA(ref string pathname,int sa) Library "Kernel32.dll"

代码:
boolean lb_rtn
string ls_dir
ls_dir = "c:\testdir"
lb_rtn=CreateDirectoryA(ls_dir,0)
if lb_rtn then
Messagebox("Succeed","Succeed!" )
else
Messagebox("Failed","Failed!")
End if