如题
解决方案 »
- mfc 我的工程继承CScrollView类,并给客户区添加了滚动条,我想6秒内让滚动自动滚到最下面然后再回到最下面?
- 为什么CComoBox添加不了字符串啊?
- 如何设置窗口的名字?
- 请教如何使用类:MicrosoftDNS_ResourceRecord
- Microsoft Hierarchical FlexGrid显示小数不正确,请教高手,急~
- 怎样修改ceditbox中字体的大小,使其与对话框中其他字号不同?怎样将对话框的背景设置成一张图片?怎样将对话框设置成全屏形式?
- 急:寻求Sleep的替代代码
- vb中的数组使用的错误
- 求救啊,高手来指点!谁能帮偶解决问题,偶再开一贴赠分!
- 關於時間延遲的問題
- 登录问题,up有分,今天结贴!
- ★★★为何我的recv()一次只能接1460字节以下?哪里需要设置?详细见内。
删除目录及目录下所有文件与子目录
http://www.vckbase.com/bbs/prime/viewprime.asp?id=390
{
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);
}
Dim myfo As New FileSystemObject
Dim drv As Drive
myfo.DeleteFolder ("d:\a") '删除文件夹
'Set drv = myfo.GetDrive(myfo.GetDriveName("d:\c"))也可采用递归算法删除带有多级子目录的目录Option ExplicitPrivate Sub Command1_Click()
Dim strPathName As String
strPathName = ""
strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹")
If strPathName = "" Then Exit SubOn Error GoTo ErrorHandle
SetAttr strPathName, vbNormal '此行主要是为了检查文件夹名称的有效性
RecurseTree strPathName
Label1.Caption = "文件夹" & strPathName & "已经删除!"
Exit Sub
ErrorHandle:
MsgBox "无效的文件夹名称:" & strPathName
End SubSub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As StringsPath = 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