要复制“D:\myfolder"下的dat类文件到”D:\bak下 dim fso as new filesystemobject fso.copyfile"D:\myfolder\*.dat","D:\bak\ 我用到了filesystemobject对象的copyfile方法
先引用菜单的 [工程]-[引用]里的Microsoft Scripting Runtime 部件。 具体的程序如下:(在窗体上加一个CommandButton)Dim fso As New FileSystemObject '定义Private Sub Command1_Click() Dim fil As File Set fil = fso.GetFile("c:\temp\cloud.jpg") '获得一个文件句柄
fil.Copy ("d:\temp\1.jpg") '将该文件复制到“d:\temp\1.jpg”目录下 End Sub
source 必要参数。字符串表达式,用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式,用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
其中filename
可用app.path & "……"
进行相对路径的文件拷贝
只不过后者要用fso。
dim fso as new filesystemobject
fso.copyfile"D:\myfolder\*.dat","D:\bak\
我用到了filesystemobject对象的copyfile方法
具体的程序如下:(在窗体上加一个CommandButton)Dim fso As New FileSystemObject '定义Private Sub Command1_Click()
Dim fil As File Set fil = fso.GetFile("c:\temp\cloud.jpg")
'获得一个文件句柄
fil.Copy ("d:\temp\1.jpg")
'将该文件复制到“d:\temp\1.jpg”目录下
End Sub
source 必要参数。字符串表达式,用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式,用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
说明如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误。现在看看是否已经可以实现你想要的功能了呢?
see it?