急：在VB里面怎么对一个文件改名？100分相送。

Question

急：我想把一个文件改个名字，没有想到搞了半天也没有成功请高手指点。

Answer 1

name oldname as newname

Answer 2

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   ' 更改文件名，并移动文件。

Answer 3

'例
Name App.Path & "\a.txt" As App.Path & "\1.txt"

Answer 4

Name 语句
      重新命名一个文件、目录、或文件夹。语法Name oldpathname As newpathnameName 语句的语法具有以下几个部分：部分 描述 
oldpathname 必要参数。字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。 
newpathname 必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由 newpathname 所指定的文件名不能存在。 
说明 Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要，Name 可跨驱动器移动文件。 但当 newpathname 和 oldpathname 都在相同的驱动器中时，只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。在一个已打开的文件上使用 Name，将会产生错误。必须在改变名称之前，先关闭打开的文件。Name 参数不能包括多字符 (*) 和单字符 (?) 的统配符。

Answer 5

养成多查资料的习惯，如装个MSDN或上网搜索一下

Answer 6

设置Scripting.File对象的Name属性即可修改文件的文件名

Answer 7

name oldname as newname

Answer 8

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal _
lpExistingFileName As String, ByVal lpNewFileName As String) As LongPrivate Sub Command1_Click()
MoveFile "d:\ddddddd.PNG", "d:\hhhh.png"
End Sub

Answer 9

多给种解法，虽然慢了...
shell "command /c ren 旧 新"