求助壹個vbs腳本或者是批處理。

VBS?版作業自動查詢統計?'將此文件拷貝到作業文件夾內執行即可。

Const?ForReading?=?1,?ForWriting?=?2

path?=?StrReverse(Split(StrReverse(WScript.ScriptfullName),?"\",?2)(1))

WJWB?=?"名單"'此處"名單"為妳的存放學生信息的txt文本文件的名字，可自行更改與妳成需要的名字

FileName?=?path?&?"\"?&?WJWB?&?".txt"?

Set?fso?=?CreateObject("Scripting.FileSystemObject")

Set?theFile?=?fso.OpenTextFile(FileName,?ForReading,?False)

Do?While?theFile.AtEndOfLine?<>?True

name?=?theFile.Readline

if?len(SS)?=0?then

SS=?name

else

SS=?SS?&?"*"?&?name

end?if

Loop

theFile.Close

'?************************

'?中間部分省略

'?************************

if?m?=?0?then

MS?=?"全部都交作業了！"

WW?=?4144

else

MS?=?"沒交作業的名單如下：?"?&?CHR(13)?&?CHR(13)?&?KS

WW?=?4112

end?if

if?k?=?0?then

MK?=?""

else

MK?=?"此文件夾中下列文件沒有在名單之列，請檢查?！?"?&?CHR(13)?&?CHR(13)?&?KK

end?if

MSGBOX?MS?&?CHR(13)?&?CHR(13)?&?MK,WW,date?&?"日交作業自動查詢統計"

求助壹個vbs腳本 或者是 批處理。