同志们!请问怎么删除一个含有文件的目录......急急急急急急急急急急

endy_wqf 2002-08-07 09:40:05
如题
...全文
32 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
老人参 2002-08-07
  • 打赏
  • 举报
回复
删除文件夹: 引用scrrun.dll


Dim myfo As New FileSystemObject
Dim drv As Drive
myfo.DeleteFolder ("d:\a") '删除文件夹
'Set drv = myfo.GetDrive(myfo.GetDriveName("d:\c"))

也可采用递归算法删除带有多级子目录的目录

Option Explicit

Private Sub Command1_Click()
Dim strPathName As String
strPathName = ""
strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹")
If strPathName = "" Then Exit Sub

On Error GoTo ErrorHandle
SetAttr strPathName, vbNormal '此行主要是为了检查文件夹名称的有效性
RecurseTree strPathName
Label1.Caption = "文件夹" & strPathName & "已经删除!"
Exit Sub
ErrorHandle:
MsgBox "无效的文件夹名称:" & strPathName
End Sub

Sub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As String

sPath = CurrPath & "\"

sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+vbHidden+vbSystem+vbVolume+vbDirectory
Do While sFileName <> ""
If sFileName <> "." And sFileName <> ".." Then
If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹
newPath = sPath & sFileName
RecurseTree newPath
sFileName = Dir(sPath, 31)
Else
SetAttr sPath & sFileName, vbNormal
Kill (sPath & sFileName)
Label1.Caption = sPath & sFileName '显示删除过程
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop
SetAttr CurrPath, vbNormal
RmDir CurrPath
Label1.Caption = CurrPath
End Sub
sh210 2002-08-07
  • 打赏
  • 举报
回复
用DeleteDirectoryObject()
yjpei 2002-08-07
  • 打赏
  • 举报
回复
void CUpgrade::MoveDir(CString source, CString dest)
{
CString filename;
CFileFind findFile;
findFile.FindFile(source + "\\*.*");
while(findFile.FindNextFile()){
filename = findFile.GetFileName();
if(findFile.IsDirectory()){
if((filename!=".")&&(filename!="..")){
_mkdir(dest + "\\" + filename);
MoveDir(source + "\\" + filename,dest + "\\" + filename);
}
}else{
CopyFile(source + "\\" + filename,dest + "\\" + filename,FALSE);
DeleteFile(source + "\\" + filename);
}
}
filename = findFile.GetFileName();
if(findFile.IsDirectory()){
if((filename!=".")&&(filename!="..")){
_mkdir(dest + "\\" + filename);
MoveDir(source + "\\" + filename,dest + "\\" + filename);
}
}else{
CopyFile(source + "\\" + filename,dest + "\\" + filename,FALSE);
DeleteFile(source + "\\" + filename);
}
findFile.Close();
_rmdir(source);
}
studentforever 2002-08-07
  • 打赏
  • 举报
回复
使用递归。
删除目录及目录下所有文件与子目录
http://www.vckbase.com/bbs/prime/viewprime.asp?id=390

16,466

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • Web++
  • encoderlee
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……

试试用AI创作助手写篇文章吧