请问这个文件名比较复杂的文件如何转移

roych

1."*"常常在like时使用时才视为通配符，大部分情况下视为字符星号。
2.filecopy多个文件时必须要先读取正确的文件名，所以报错了。
3.获取文件名一般有两种方式，一种是使用FileDialog，另一种则是使用FileSystemObject。详见代码和附件。
4.关于这方面的例子，论坛里已经有太多，这里就不一一介绍了。
以下代码请引用Microsoft Scripting runtime 后再运行：

1. Private Sub Command2_Click()
   
2.     Dim fso As New FileSystemObject
   
3.     Dim fl As File
   
4.     For Each fl In fso.GetFolder("D:\12345").Files
   
5.         If fl.Name Like "*" & Format(Me.Text0, "yyyy-mm-dd") & "停留时间*.xls" Then
   
6.             fl.Copy "D:\222" & fl.Name
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

roych

DateAdd("d", -1, Format(Me.Text0, "yyyy-mm-dd"))

谁告诉你怎么写的？建议你先去看看DateAdd函数的帮助文件。
Format(DateAdd("d", -1, Me.Text0),"yyyy-mm-dd")