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

123shusheng

转移文件用FileCopy，我的这个文件文件名比较复杂，测试了几次都提示运行错误52，文件名不对，请高手指点！

风中漫步

？多么复杂？

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

复制代码

123shusheng

roych 发表于 2017-1-18 14:03
1."*"常常在like时使用时才视为通配符，大部分情况下视为字符星号。
2.filecopy多个文件时必须要先读取正 ...

您的这段代码非常好，但文件名我还要设一个条件。

Private Sub Command2_Click()
    Dim fso As New FileSystemObject
    Dim fl As File
    For Each fl In fso.GetFolder("D:\12345\").Files
        If fl.Name Like DateAdd("d", -1, Format(Me.Text0, "yyyy-mm-dd"))&"*" & Format(Me.Text0, "yyyy-mm-dd") & "停留时间*.xls" Then        也就是说文件名是：2017-1-17*2017-1-18*停留时间*.xls
            fl.Copy "D:\222\" & fl.Name
        End If
    Next
   Kill "D:\12345\*停留时间*.xls"          同时我想加上这一句，删除指定文佳夹中文件名中包含停留时间的xls表
End Sub

我加上了好像语法都不对，请高手帮我改改，谢谢！

roych

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

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

123shusheng

[quote]roych 发表于 2017-1-19 13:10
谁告诉你怎么写的？建议你先去看看DateAdd函数的帮助文件。
Format(DateAdd(

对不起，是我依葫芦画瓢画错了。那删除*停留时间*.xls文件的代码，请赐教！
来自: 微社区