sub mj(fol,tab)set fso1=createobject("scripting.filesystemobject")set folder1=fso1.getfolder(fol)set folders1=folder1.subfoldersfor each fo in folders1 writeconn fo,tabnextend subsub writeconn(varfo,vartab)set conn=createobject("adodb.connection")set rs=createobject("adodb.recordset")conn.open "provider=microsoft.jet.oledb.4.0;data source=game.xls;extended properties=excel 8.0;"rs.open "select * from " & vartab,conn,1,3rs.addnewrs("path")=varfors.updateend subsub readconn(vartab)set conn=createobject("adodb.connection")set rs=createobject("adodb.recordset")conn.open "provider=microsoft.jet.oledb.4.0;data source=game.xls;extended properties=excel 8.0;"rs.open "select * from " & vartab,conn,1,1do while not rs.eof'msgbox rs("title") lnk rs("title"),rs("path"),rs("run")rs.movenextloopend subSub lnk(varmys,varwor,vartar)Dim wshshellSet wshshell = CreateObject("wscript.shell")Dim myshortcut, mydesktop, desktoppathdesktoppath = wshshell.specialfolders("desktop")Set myshortcut = wshshell.createshortcut(desktoppath & "\game\lnk\" & varmys & ".lnk")myshortcut.targetpath = wshshell.expandenvironmentstrings(vartar)myshortcut.workingdirectory = wshshell.expandenvironmentstrings(varwor)myshortcut.windowstyle = 4myshortcut.iconlocation = wshshell.expandenvironmentstrings(vartar & ",0")myshortcut.SaveEnd Sub'mj "d:\tools","[tools$]"'msgbox "end"

(1263) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的