文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

PrivateDeclareFunctionCreateDirectoryLib"kernel32"Alias"CreateDirectoryA"(ByVallpPathNameAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)AsLong PrivateTypeSECURITY_ATTRIBUTES nLengthAsLong lpSecurityDescriptorAsLong bInheritHandleAsLong EndType SubMain() '在C盘创建了"VB编程乐园"目录 CallCreateNewDirectory("C:\VB编程乐园") MsgBox"在C盘创建了VB编程乐园目录" EndSub PublicSubCreateNewDirectory(NewDirectoryAsString) DimsDirTestAsString DimSecAttribAsSECURITY_ATTRIBUTES DimbSuccessAsBoolean DimsPathAsString DimiCounterAsInteger DimsTempDirAsString DimiFlagAsInteger iFlag=0 sPath=NewDirectory IfRight(sPath,Len(sPath))<>"\"Then sPath=sPath&"\" EndIf iCounter=1 DoUntilInStr(iCounter,sPath,"\")=0 iCounter=InStr(iCounter,sPath,"\") sTempDir=Left(sPath,iCounter) sDirTest=Dir(sTempDir) iCounter=iCounter 1 '创建目录 SecAttrib.lpSecurityDescriptor=&O0 SecAttrib.bInheritHandle=False SecAttrib.nLength=Len(SecAttrib) bSuccess=CreateDirectory(sTempDir,SecAttrib) Loop EndSub->

上一篇:使用调用外部程序函数实现API函数高级功能

下一篇:怎样用VB在应用程序中调用API