Question

从几天开始，我一直在搜索vba或vbs代码，以列出特定目录中包含US-或IS-的所有文件夹。到目前为止，我有下面的代码列出了所有文件，但没有列出文件夹名称。

    'Force the explicit declaration of variables
Option Explicit
Sub Get_File_Name()
Dim objFSO As Object
Dim SearchString As String
Dim TestPos As Integer

Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder("C:\Working Documents\Client\OPTICS\")
i = 1
For Each objSubFolder In objFolder.SubFolders
If InStr(1, objSubFolder.Name, "US-", vbTextCompare) > 0 Or InStr(1, objSubFolder.Name, "IS-", vbTextCompare) > 0 Then
    'print folder name
    Cells(i + 1, 1) = objSubFolder.Name
    'print folder path
    Cells(i + 1, 2) = objSubFolder.Path
    i = i + 1
Else
End If
Next objSubFolder
End Sub

非常感谢任何帮助。

Answer 1

在For Each循环中使用一个简单的Pininterest API Explorer来检查文件名是否包含US-或IS - ：

    select Id,Status
    from table
    where Id=(
select MAX(Id) from table where Id <> (select MAX(Id) from table)


)

在包含文件夹名称为US-和IS-vba的目录中查找文件夹

1 个答案: