vb 文件的复制重命名

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 50

FileCopy "d:\a" &i &"\1.txt", "袜吵猜d:\a" &i &"\b\1.txt"

Kill "告型d:\a" &i &"碰裤\b\2.txt"

Next i

End Sub

使用 Name 语句来更改信铅早文件的名称。示例中激拦假设所有使用到的目录或文件夹都已存在。

Dim OldName, NewName

OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。

Name OldName As NewName ' 更改文件名。

OldName = "

C

:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"

Name OldName As NewName ' 更改文件名，并移动文件滑雀。

其它：

使用shell语句来调用dos命令rename。

---