文件操作.frm

Windows API函数,希望大伙有用哦

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1890
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   1890
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "文件删除"
      Height          =   345
      Left            =   2850
      TabIndex        =   2
      Top             =   810
      Width           =   1125
   End
   Begin VB.CommandButton Command2 
      Caption         =   "文件移动"
      Height          =   345
      Left            =   1665
      TabIndex        =   1
      Top             =   810
      Width           =   1125
   End
   Begin VB.CommandButton Command1 
      Caption         =   "文件复制"
      Height          =   345
      Left            =   480
      TabIndex        =   0
      Top             =   810
      Width           =   1125
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
  hwnd As Long
  wFunc As Long
  pFrom As String
  pTo As String
  fFlags As Integer
End Type
'wFunc 常数说明
'FileCopy 把 pFrom 文件拷贝到 pTo。
Const FileCopy = &H2
'FileDelete 删除 pFrom 中的文件（pTo 忽略）。
Const FileDelete = &H3
'FileMove 把 pFrom 文件移动到 pTo。
Const FileMove = &H1
'fFlag 常数说明
'File_ALLOWUNDO 允许 Undo 。
Const File_ALLOWUNDO = &H40
'File_NOCONFIRMATION 不显示系统确认对话框。
Const File_NOCONFIRMATION = &H10
'File_NOCONFIRMMKDIR 不提示是否新建目录。
Const File_NOCONFIRMMKDIR = &H200
'File_SILENT 不显示进度对话框
Const File_SILENT = &H4
Dim SHFileOp As SHFILEOPSTRUCT
Private Sub Command1_Click()
' 文件复制，显示操作进度，显示系统确认对话框，提示是否新建目录
  With SHFileOp
   .wFunc = FileCopy
   .pFrom = "C:\AAA\*.*"
   .pTo = "D:\AAA"
   .fFlags = File_ALLOWUNDO
  End With
SHFileOperation SHFileOp
End Sub
Private Sub Command2_Click()
' 文件移动，显示操作进度，显示系统确认对话框，提示是否新建目录
  With SHFileOp
  .wFunc = FileMove
  .pFrom = "C:\AAA\*.*"
  .pTo = "D:\AAA"
  .fFlags = File_NOCONFIRMMKDIR
  End With
SHFileOperation SHFileOp
End Sub
Private Sub Command3_Click()
' 删除文件，显示操作进度，显示系统确认对话框
  With SHFileOp
   .wFunc = FileDelete
   .pFrom = "D:\AAA\*.*"
  End With
SHFileOperation SHFileOp
End Sub