'无聊之作
If Wscript.Arguments.Count=0 Then
Msgbox "请把文件(夹)拖拽至本程序的图标上！",48,"提示"
Wscript.Quit
End If
For i=0 to Wscript.Arguments.Count-1
j=Wscript.Arguments(i)
k=k+j+chr(10)
next
msgbox k,64,"输出结果"

发表于 @ 2008年07月17日 10:27:00|评论(loading...)|编辑|收藏