好,
现在抛开fileListBox.  那么怎样改一个文件的名字呢? 
VB下有函数实现吗?还是得用API函数?

解决方案 »

  1.   

    The following function renames files.
    'Purpose     :  Renames a file
    'Inputs      :  sOriginalName               The original path and file name.
    '               sNewName                    The new path and file name.
    '               [bOverWrite]                If True will overwrite any other file which might
    '                                           have the new file name.
    'Outputs     :  Returns True if succeeded in renaming the file.
    'Author      :  Andrew Baker
    'Date        :  03/09/2001 14:17
    'Notes       :
    'Revisions   :
    Function FileRename(sOriginalName As String, sNewName As String, Optional bOverWrite As Boolean) As Boolean
    On Error GoTo ErrFailed
    If Len(Dir$(sOriginalName)) > 0 And Len(sOriginalName) > 0 Then     'Check File Exitsts
    If bOverWrite = True And Len(Dir(sNewName)) > 0 Then
    'Delete file with same name as new file
    VBA.Kill sNewName
    End If
    Name sOriginalName As sNewName
    FileRename = True
    End If
    Exit Function
    ErrFailed:
    'Failed to Rename File
    FileRename = False
    On Error GoTo 0
    End Function
      

  2.   

    你会dos么?
    filename="c:\a\aaa.exe"
    shell ("ren " & filename & " bbb.exe")
      

  3.   

    VB中有改名和删除文件的函数,改名用Name..As,删除文件用Kill。以下资料摘自MSDN。Name 语句
          重新命名一个文件、目录、或文件夹。语法Name oldpathname As newpathnameName 语句的语法具有以下几个部分:部分 描述 
    oldpathname 必要参数。字符串表达式,指定已存在的文件名和位置,可以包含目录或文件夹、以及驱动器。 
    newpathname 必要参数。字符串表达式,指定新的文件名和位置,可以包含目录或文件夹、以及驱动器。而由 newpathname 所指定的文件名不能存在。 
    说明 Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要,Name 可跨驱动器移动文件。 但当 newpathname 和 oldpathname 都在相同的驱动器中时,只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。在一个已打开的文件上使用 Name,将会产生错误。必须在改变名称之前,先关闭打开的文件。Name 参数不能包括多字符 (*) 和单字符 (?) 的统配符
    Name 语句示例
    本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 Dim OldName, NewName
    OldName = "OLDFILE": NewName = "NEWFILE"   ' 定义文件名。
    Name OldName As NewName   ' 更改文件名。 
    OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
    Name OldName As NewName   ' 更改文件名,并移动文件。
    Kill 语句
          从磁盘中删除文件。语法Kill pathname必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。说明在 Microsoft Windows 中,Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。