.vbs文件用什么打开方式打开，我是要运行它

1、右击任意vbs格式文件，在展开的菜单中点击“属性”按钮打开文件的属性界面：

2、打开属性界面后，点击窗口中打开方式后面的“更改...”按钮选择文件的打开方式：

3、在d窗的窗口后向下拉动列表，然后点击最底部的“在这台电脑上查找其他应用”按钮：

4、在d出的窗口中找到C盘“windows/System32”文件夹下的“wscript.exe”文件，双击这个文件，此时双击vbs格式文件即可直接运行：

这是一个示例代码，实际使用中需要根据自己的需求进行调整。

' 定义变量

Dim fso, folder, file, excelFile, sheet, findText

' 初始化变量

Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("C:\myfolder")

findText = "hello"

' 查找最新时间的EXCEL文件

For Each file In folder.Files

If file.Type = "Microsoft Excel Worksheet" And file.DateLastModified >excelFile.DateLastModified Then

Set excelFile = file

End If

Next

' 打开EXCEL文件并查找文字

Set excel = excelFile.OpenAsTextStream(1, -2)

Set sheet = excel.Worksheets(1)

Set findRange = sheet.Range("A1:Z1000")

Set findResult = findRange.Find(findText)

' 如果找到了，d出对话框提示

If Not findResult Is Nothing Then

MsgBox "Found the text in the Excel file."

End If

'纯vbs的话要递归遍历所有文件夹，比较麻烦，可以和cmd结合起来用

targetfile="test.jpg"'改成你要找的文件名

Set WshShell = WScript.CreateObject("Wscript.Shell")

Set fso = WScript.CreateObject("Scripting.Filesystemobject")

tempfile=WScript.ScriptName&"_temp.txt"

wshshell.Run "cmd /c dir d:\"&targetfile&"/b /s>"&tempfile,1,True

Set f=fso.GetFile(tempfile)

If f.Size>0 Then'dir找到目标文件时才会向tempfile中写入数据，没找到时只会生成一个空文件

Set ft=fso.OpenTextFile(tempfile,1)

Do Until ft.AtEndOfStream'可能会找到多个文件，故需要读每一行的数据

line=ft.ReadLine'读入一行

MsgBox line'仅供演示

Loop

ft.Close

End If

fso.DeleteFile(tempfile)'删除生成的临时文件

---