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

1.

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

第二个问题：

FileCopy 源文件名,目标文件名

2.

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

...实际上VB的帮助文件里都有的。。。多研究一下。

使用 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。

---