VB 复制文件并更改文件名

1.

commondialog的控件名为Microsoft Common Dialog Control 6.0，文件名为comdlg32.ocx，如果没有，可在你的机器上搜索comdlg32.ocx，如果还没有，可到网上下载，放到Windows\system32目录下（不是必须，但放到该目录下VB可直接找到）。

第二个问题：

FileCopy 源文件名,目标文件名

2.

dir (绝对路径），看返回值是不是空的，不是空的就是有，是空的就没有。

...实际上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

---