📄 1807.html
字号:
<html> <head> <title>Re: 删除整个资料夹</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>Re: 删除整个资料夹</h1> </center><HR><p>Posted by <a href="mailto:a338479@ms3.hinet.net">小刘</a> on January 30, 1998 at 21:33:57:<p>In Reply to: <a href="1802.html"><b>如何不使用deltree而删除整个资料夹(也就是不使用Shell)</b></a> posted by jony on January 30, 1998 at 11:44:34:<p>在模组中宣告<br>Public Const FO_DELETE = &H3<br>Public Const FOF_NOCONFIRMATION = &H10<br>Public Const FOF_ALLOWUNDO = &H40<p>Type SHFILEOPSTRUCT<br> hWnd As Long<br> wFunc As Long<br> pFrom As String<br> pTo As String<br> fFlags As Integer<br> fAborted As Boolean<br> hNameMaps As Long<br> sProgress As String<br>End Type<br> <br>Declare Function SHFileOperation Lib "shell32.dll" Alias <br>"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long<p>在CommandButton中……<br>Private Sub Command1_Click()<br>Dim SHFileOp As SHFILEOPSTRUCT<br> <br> SHFileOp.wFunc = FO_DELETE<br> SHFileOp.pFrom = "C:\Temp\*.*" + Chr(0)<br> SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION<br> Call SHFileOperation(SHFileOp)<br> <br>End Sub<p><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1807--></ul><!--end: 1807--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -