主页 / 问题 / 1056364
Accepted
Blacit
Asked:2020-12-09 20:25:31 +0000 UTC2020-12-09 20:25:31 +0000 UTC

搜索具有不同名称的文件并打开它们

  • 772

任务：编写一个 vbs 脚本，它可以找到所有名称中包含 (0009) 的文件 - 即 括号内和不同的数字。完整的文件名可能是什么样子

70201520000650000025_06011012_72012013(0001)

问题：需要找到所有在数字中带有括号的文件。我无法理解正确查找和打开这些文件需要做什么。

Option Explicit

Dim Path, FSO, NameFile, wb, fil, curfold, objEX

'определяем каталог, в котором находимся'
Set FSO = CreateObject("Scripting.FileSystemObject")

'сохраняем путь, в котором находимся'
Path = FSO.GetParentFolderName(WScript.ScriptFullName)
Set curfold = FSO.GetFolder(Path)

'находим файл .rtf в каталоге и открываем.'
If Not curfold Is Nothing Then
For Each fil In curfold.Files
    If InStr(1, fil.Name, ".rtf", vbTextCompare) > 0  and (InStr(1, fil.Name, "*(*)*", vbTextCompare) > 0 ) Then
        NameFile = fil.Name

        Set wb = objEX.Workbooks.Open(Path & "\" & NameFile)

        wb.Close False
    end if

Next
End If
Set FSO = Nothing
vbscript

1 个回答

  1. Best Answer

    Akima 建议我编写并编写响应选项，但我的代码成功了。根据我所做的，那么这个选项适合搜索：

    If Not curfold Is Nothing Then
For Each fil In curfold.Files
    If InStr(1, fil.Name, ".rtf", vbTextCompare) > 0  and (InStr(1, fil.Name, "*(*)*", vbTextCompare) > 0 ) Then
        NameFile = fil.Name

        Set wb = objEX.Workbooks.Open(Path & "\" & NameFile)

        wb.Close False
    end if

Next
End If

    在这一行中，我指出括号之前、内部和之后都可以有任何数字(InStr(1, fil.Name, "*(*)*", vbTextCompare) > 0 )

    我们绝对会检查所有文件以符合我们的要求，这些文件在此处列出If InStr(1, fil.Name, ".rtf", vbTextCompare) > 0 and (InStr(1, fil.Name, "*(*)*", vbTextCompare) > 0 )

    • 0

相关问题