我在使用通配符獲取檔案名時遇到了一些麻煩。我使用通配符是因為檔案名中有一個“版本”，所以在這種情況下，“Test v*”可能是“Test v1”或“Test v2”，因此我希望它提取任何版本的名稱目前在桌面。
這是我的代碼的簡化版本。如果運行，您會得到“Test v*”而不是實際的檔案名。不知道我錯過了什么，但任何幫助將不勝感激
Dim Owner As String
Dim Cver As String
Dim FileName As String
Owner = Environ("USERNAME")
FileName = "C:\Users\" & Owner & "\Desktop\TEST v" & "*" & ".accdb"
Cver = Left(FileName, InStr(FileName, ".") - 1)
MsgBox "" & Mid(Cver, 7, 2) & ""
uj5u.com熱心網友回復：
您將要使用 Dir()
這是我的代碼版本：
Sub getVersion()
Dim owner As String
Dim Cver As String
Dim fileName As String
Dim owner As String: owner = Environ("USERNAME")
Dim fileName As Variant: fileName = Dir("C:\Users\" & owner & "\Desktop\TEST v" & "*" & ".accdb", vbDirectory)
Cver = Left(fileName, InStr(fileName, ".") - 1)
MsgBox "" & Mid(Cver, 7, 2) & ""
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/431228.html