本地vbs调试快速显示输出

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

function setClipBoard(str)

    Set WshShell = CreateObject("WScript.Shell")

    Set oExec = WshShell.Exec("clip")

    Set oIn = oExec.stdIn

    oIn.WriteLine str

    oIn.Close

    Do While oExec.Status =

            WScript.Sleep

    Loop

    Set oIn = Nothing

    Set oExec = Nothing

end function

dim fso

dim files

set fso = CreateObject("Scripting.FileSystemObject")

set files = fso.getfolder("C:\Data").files

dim result

for each file in files

    if lcase(fso.GetExtensionName(file.path)) = "mdf" then

        result = result & file.name & vbcrlf

    end if

next

setClipBoard(result)