'遍历扫描一个目录下的的所有文件输出路径
'Code:
Call scan("D:\scripts")
Sub scan(path)
 set fso=createobject("scripting.filesystemobject")
 set f=fso.getfolder(path)
 set fc2 = f.files
 for each file in fc2
  Set wr = fso.OpenTextFile("c:\1.txt", 8, True)
  wr.WriteLine Path&Temp&"\"&file.name
  wr.Close
 next
end sub

'VBS利用SendKeys输入中文字符的方法1
'Code:
Set wshobj=wscript.createobject("Wscript.Shell")
Set bjIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text","这是你想输入的中文..."
app=wshobj.Run ("C:\WINDOWS\system32\notepad.exe")
WScript.Sleep 1000
wshobj.AppActivate app
wshobj.SendKeys "^v"
objIE.Quit

'VBS利用SendKeys输入中文字符的方法2
'Code:
code="你想输入的中文"
Call zhongwen(code)

Sub zhongwen(zhw)
  Set wshobj=WScript.CreateObject("WScript.Shell")
  wshobj.Run "cmd.exe /c echo " & zhw & "| clip.exe", vbHide
  app=wshobj.Run ("C:\WINDOWS\system32\notepad.exe")
  WScript.Sleep 1000
  wshobj.AppActivate app
  wshobj.SendKeys "^v"
  Wscript.Quit
End Sub