Option Explicit Private Type SHFILEOPSTRUCT hWnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAborted As Boolean hNameMaps As Long sProgress As String End Type Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 Const FO_RENAME = &H4 Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Sub Command1_Click() Dim tlp As SHFILEOPSTRUCT With tlp .hWnd = Me.hWnd .wFunc = FO_RENAME .pFrom = "c:\123.txt" .pTo = "c:\321.txt" .fFlags = FOF_ALLOWUNDO End With
OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。
Name OldName As NewName ' 更改文件名。
OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' 更改文件名,并移动文件。
or
copy my.doc you.doc
or
.....
参考这个吧,你改前面就行了
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Const FO_RENAME = &H4
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Sub Command1_Click()
Dim tlp As SHFILEOPSTRUCT
With tlp
.hWnd = Me.hWnd
.wFunc = FO_RENAME
.pFrom = "c:\123.txt"
.pTo = "c:\321.txt"
.fFlags = FOF_ALLOWUNDO
End With
Call SHFileOperation(tlp)
End Sub