文件路径中的VBA通配符

时间:2018-06-20 21:24:49

标签: excel-vba vba excel

我有以下代码,似乎在文件路径中包含通配符。我当然理解“ *”,但是我不认识也找不到对“〜$”的引用。谁能告诉我这是什么意思?

Dim fsoPO As New FileSystemObject  
Dim fldPOValid As Folder: Set fldPOValid = fsoPO.GetFolder("C:\Excel Automation\Audit")  
Dim objPOFile As File, strPOFileName As String  
Dim dtPOFile As Date: dtPOFile = DateSerial(1900, 1, 1)  

For Each objPOFile In fldPOValid.Files  
    If Not objPOFile.Name Like "*~$*" Then  
        If objPOFile.Name Like "*.xlsx" _  
        And objPOFile.DateLastModified > dtPOFile Then  
            dtPOFile = objPOFile.DateLastModified: _  
            strPOFileName = objPOFile.Name  
        End If  
    End If  
Next objPOFile  
Set fsoPO = Nothing  
Set fldPOValid = Nothing  

`

0 个答案:

没有答案