什么意思,如何用呀,如我有一个文件为:my.doc我要改成you.doc如何做

解决方案 »

  1.   

    Dim OldName, NewName
    OldName = "OLDFILE": NewName = "NEWFILE"   ' 定义文件名。
    Name OldName As NewName   ' 更改文件名。 
    OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
    Name OldName As NewName   ' 更改文件名,并移动文件。
      

  2.   

    filename my.doc you.doc
    or
    copy my.doc you.doc
    or
    .....
      

  3.   

    http://www.csdn.net/expert/topic/383/383781.shtm
    参考这个吧,你改前面就行了
      

  4.   

    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
        
    Call SHFileOperation(tlp)
    End Sub