📄 1807.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 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 + -