VB复制文件并命名

Private Sub Command1_Click()

Dim FileName As String, Path As String

Path = Trim(Text1.Text)

Path = Replace(Path, "\", "") '路径

FileName = Dir(App.Path &"\" &Path &"\*.bmp")

Do While FileName <>"" '枚举路径下的所有文件

FileCopy App.Path &"\" &Path &"\" &FileName, "f:\PHOTO\" &Path &FileName '复制文件

FileName = Dir()

Loop

End Sub

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

---