发信人: liangjt()
整理人: leitiger(2002-06-05 23:49:05), 站内信件
|
定义外部函数:
function boolean CreateDirectoryA(ref string pathname,int sa)
Library "Kernel32.dll"
在要发生事件中写代码:
boolean rtn
string l_dir
l_dir="API_Demo"
rtn=CreateDirectoryA(l_dir,0)
if rtn then
Messagebox("Succeed","Create New Directory!"
else
Messagebox("Failed","Failed")
End if
//Good lucky!!
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.104.218.36]
|
|