VB中RmDir函数不能删除父文件夹吗？
发布网友
发布时间：2022-04-20 22:09
共3个回答
热心网友
时间：2024-01-13 21:30
用rmdir来删除,但使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。所以在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件.
Kill "*.*" 删除当前目录下所有文件
' 假设 MYDIR 为一空的目录或文件夹。
RmDir "MYDIR" ' 将 MYDIR 删除。追问是否能打一下完整程式码并说明 打这样子有点看不懂ㄝ
追答 MyPath = "C:\test_del" ' 指定路径。
ifile = Dir(MyPath & "\*.*") '查找所有文件
Do While ifile = ""
Kill MyPath & "\" & ifile '删除文件
ifile = Dir
Loop
RmDir MyPath '删除文件夹
热心网友
时间：2024-01-13 21:30
VB6.0代码如下：
'首先添加一个模块（Mole），里面是如下代码：PublicConstBIF_RETURNONLYFSDIRS = 1
PublicConstBIF_DONTGOBELOWDOMAIN = 2
PublicDeclareFunctionSHBrowseForFolder Lib"shell32.dll"Alias"SHBrowseForFolderA"(LpBrowseInfo AsBROWSEINFO) AsLong
PublicDeclareFunctionSHGetPathFromIDlist Lib"shell32.dll"Alias"SHGetPathFromIDListA"(ByValpidl AsLong, ByValpszPath AsString) AsLong
PublicType BROWSEINFO
hOwner AsLong
pidlroot AsLong
pszDisplayName AsString
lpszTitle AsString
ulFlags AsLong
lpfn AsLong
lparam AsLong
iImage AsLong
EndType
PublicFunctionGetFolder(ByValhWnd AsLong, OptionalTitle AsString) AsString
Dimbi AsBROWSEINFO
Dimpidl AsLong
Dimfolder AsString
folder = Space(255)
Withbi
IfIsNumeric(hWnd) Then.hOwner = hWnd
.ulFlags = BIF_RETURNONLYFSDIRS
.pidlroot = 0
IfTitle <> ""Then
.lpszTitle = Title & Chr$(0)
Else
.lpszTitle = "选择目录"& Chr$(0)
EndIf
EndWith
pidl = SHBrowseForFolder(bi)
IfSHGetPathFromIDlist(ByValpidl, ByValfolder) Then
GetFolder = Left(folder, InStr(folder, Chr$(0)) - 1)
Else
GetFolder = ""
EndIf
EndFunction
'下面是主窗体的代码
PrivateSubCommand1_Click()
Dimstr
str = GetFolder(Me.hWnd, "浏览文件夹")
Ifstr <> ""Then
Text1.Text = str
EndIf
EndSub
PrivateSubCommand2_Click()
DimobjFSO
SetobjFSO = CreateObject("Scripting.FileSystemObject")
IfText1.Text <> ""Then
objFSO.DeleteFolder (Text1.Text)
MsgBox "Finished!"
EndIf
EndSub
追问模组的 4.5行 是否有空格没打到 它有显是错误
阿这个如果删到执行中的档案会出现错误吗?
追答
不是我干的，百度又把空格吃了。。。
直接把工程文件放上，你自己下载就可以了，已经测试通过了。
如果对你有帮助，请选择我的答案。
热心网友
时间：2024-01-13 21:31
直接调用shell 来删除
shell :"delete d:\123"
试试，我没试过的啵(*^__^*) 嘻嘻……
