Question

我在访问VBA中有代码将文件格式复制到用户路径

      FromPath = "\\xx.xx.xx.xx\zz.zzzz\" & folder & "\"
            ToPath = "C:\newfolder\" & b & "\"
            File = barkod & ".tif"
            FileCopy FromPath & File, ToPath & File

条形码是字符串

我的文件名称是 条形码_“随机字母数字字符”.tif 如何用名称

中的随机字母数字字符复制此文件

这是文件名的示例：

412355557816_17385084

412355557816_15987047

像这样的代码不起作用:( File = master＆amp; “_”＆amp; “*”＆amp;名为 “.tif”

“*”应该是什么？

Answer 1

另一个建议，使用dir命令列出与特定模式匹配的文件

FromPath = "\\xx.xx.xx.xx\zz.zzzz\" & folder & "\"
ToPath = "C:\newfolder\" & b & "\"
f = Dir(FromPath & barkod & "*.tif")
While f <> ""
    FileCopy FromPath & f, ToPath & f
    f = Dir()
Wend

Answer 2

将like与通配符运算符*

结合使用

Sub testlike()
    barcode = "412355557816*"
    If "412355557816_17385084" Like barcode Then
        Debug.Print "Match"
    End If
End Sub

使用部分随机名称访问Vba复制文件

2 个答案: