如何用程序来Delete Copy Move Rename File/Directory

听海的水兵

听海的水兵

2016-02-19 16:52

想不想get新技能酷炫一下,今天图老师小编就跟大家分享个简单的如何用程序来Delete Copy Move Rename File/Directory教程,一起来看看吧!超容易上手~

  

Private Type SHFILEOPSTRUCT    hwnd As Long    wFunc As Long    pFrom As String    pTo As String    fFlags As Integer    fAnyOperationsAborted As Long    hNameMappings As Long    lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESSEnd Type'wFunc 的设定值'FO_COPY   Copies the files specified by pFrom to the location specified by pTo.'FO_DELETE  Deletes the files specified by pFrom (pTo is ignored).'FO_MOVE   Moves the files specified by pFrom to the location specified by pTo.'FO_RENAME  Renames the files specified by pFrom.'fFlag的设定'FOF_ALLOWUNDO      Preserves undo information, if possible.'FOF_FILESONLY      Performs the operation only on files if a wildcard filename'            (*.*) is specified.'FOF_MULTIDESTFILES   Indicates that the pTo member specifies multiple destination'            files (one for each source file) rather than one directory where'            all source files are to be deposited.'FOF_NOCONFIRMATION   Responds with "yes to all" for any dialog box that is displayed.'FOF_NOCONFIRMMKDIR   Does not confirm the creation of a new directory if'            the operation requires one to be created.'FOF_RENAMEONCOLLISION  Gives the file being operated on a new name (such as'            "Copy #1 of...") in a move, copy, or rename operation'            if a file of the target name already exists.'FOF_SILENT       Does not display a progress dialog box.'FOF_SIMPLEPROGRESS   Displays a progress dialog box, but does not show the'            filenames.'FOF_WANTMAPPINGHANDLE  Fills in the hNameMappings member. The handle must be'            freed by using the SHFreeNameMappings function.Const FO_MOVE = &H1Const FO_COPY = &H2Const FO_DELETE = &H3Const FOF_NOCONFIRMATION = &H10Const FOF_NOCONFIRMMKDIR = &H200Const FOF_ALLOWUNDO = &H40Const FOF_SILENT = &H4Private Declare Function SHFileOperation Lib "shell32.dll" Alias _        "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long'删除 test目录及其底下的子目录到资源回收桶Private Sub Command1_Click()  Dim SHFileOp As SHFILEOPSTRUCT  SHFileOp.wFunc = FO_DELETE  SHFileOp.pFrom = "c:test" + Chr(0)  '不出现档案删除的动态AVI,且不Confirm  SHFileOp.fFlags = FOF_SILENT + FOF_ALLOWUNDO + FOF_NOCONFIRMATION  '若没有 FOF_ALLOWUNDO 则不会到资源回收桶  Call SHFileOperation(SHFileOp)End Sub'同时删除多档到资源回收桶Private Sub Command2_Click()  Dim SHFileOp As SHFILEOPSTRUCT  Dim Files As String  'Files = "c:test.txt" + Chr(0)  Files = "c:test1.txt" + Chr(0) + "c:test2.txt" + Chr(0) + _      "c:test3.txt" + Chr(0)  SHFileOp.wFunc = FO_DELETE  SHFileOp.pFrom = Files  '删至资源回收桶,且不Confirm  SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION  Call SHFileOperation(SHFileOp)End Sub'将 c:temp 整个目录复制到 c:temp2Private Sub Command3_Click()  Dim SHFileOp As SHFILEOPSTRUCT  SHFileOp.wFunc = FO_COPY  SHFileOp.pFrom = "c:temp*.*"  SHFileOp.pTo = "c:temp2*.*"  SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR  Call SHFileOperation(SHFileOp)End Sub'将 c:test4.txt 快速移到 c:temp 目录Private Sub Command4_Click()  Dim SHFileOp As SHFILEOPSTRUCT  SHFileOp.wFunc = FO_MOVE  SHFileOp.pFrom = "c:test4.txt" + Chr(0)  SHFileOp.pTo = "c:temp"  SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION  Call SHFileOperation(SHFileOp)End Sub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)
展开更多 50%)
分享

猜你喜欢

如何用程序来Delete Copy Move Rename File/Directory

编程语言 网络编程
如何用程序来Delete Copy Move Rename File/Directory

Linux中提示No such file or directory解决方法

服务器
Linux中提示No such file or directory解决方法

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

File.Delete不能删除文件的问题

Web开发
File.Delete不能删除文件的问题

如何用木瓜来丰胸?

丰胸
如何用木瓜来丰胸?

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

如何用植物来装饰客厅

生活常识
如何用植物来装饰客厅

如何用牛奶来保养皮肤

牛奶 皮肤护理
如何用牛奶来保养皮肤

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

WPS2024造成的HTML5 file.type值异常的解决方法

WPS2024造成的HTML5 file.type值异常的解决方法

鸿飞日记本基础教程

鸿飞日记本基础教程
下拉加载更多内容 ↓