VB 如何复制指定文件夹中文件 到指定到文件夹下

[panyong]

我想利用VB 拷贝 D:\TT\11.MDB
到c:\tt\下
应该怎么做 用VB

[bcrun]

MSND Library中有：
FileCopy 语句
复制一个文件。

语法

FileCopy source, destination

FileCopy 语句的语法含有以下这些命名参数：

部分 描述
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。


说明

如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。

FileCopy 语句示例
本示例使用 FileCopy 语句来复制文件。示例中假设 SRCFILE 为含有数据的文件。

Dim SourceFile, DestinationFile
SourceFile = "SRCFILE"   ' 指定源文件名。
DestinationFile = "DESTFILE"   ' 指定目的文件名。
FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中。

[贝隆]

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

CopyFile "D:\TT\11.MDB","c:\tt\11.MDB",True

[panyong]

[Quote=引用 2 楼 veron_04 的回复:]
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

CopyFile "D:\TT\11.MDB","……
[/Quote]
为什么出现参数不可选？

[panyong]

FileCopy

[panyong]

不行啊 两位大哥

[SYSSZ]

Private Sub Command1_Click()
FileCopy "D:\TT\11.MDB", "c:\tt\11.MDB"

End Sub

[panyong]

文件名自己没写对！呵呵！不好意思大哥！

[panyong]

[Quote=引用 6 楼 syssz 的回复:]
VB code
Private Sub Command1_Click()
FileCopy "D:\TT\11.MDB", "c:\tt\11.MDB"

End Sub
[/Quote]

我以日期重命名文件
Dim OldName, NewName
OldNameE = "111.mdb": NewNameE = "111" & Format(Date, "yyyymmdd") & "." & "mdb" ' 定义文件名。
OldNameE = "D:\tt\111.mdb": NewNameE = "D:\tt\" & "111" & Format(Date, "yyyymmdd") & "." & "mdb"

重新命名的时候 如果文件存在则在日期后面增加什么字符重新命名规则 以此类推