2017-01-13 36 views
0

我有一些代碼在訪問VBA以文件形式serwer拷貝到用戶文件的路徑獲取VBA複製與部分隨機名稱

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

條形碼字符串

我有文件名是barcode_「隨機字母數字字符」。TIF 喲如何複製該文件與隨機的字母數字字符的名稱

這是示例文件名:

412355557816_17385084

412355557816_15987047

這樣的代碼是不工作:( 文件=主& 「_」 & 「*」 & 「TIF」

應該是「什麼* 「?

+0

您可以添加更多的代碼?像「文件夾」,「b」和「barkod」如何分配? – User632716

回答

2

另一項建議相結合,使用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 
+0

它的工作感謝您的幫助 – kumcio

1

使用like與通配符*

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