vbs获取目录列表

vbs如何表示当前目录，要完整代码，不要引导。 完整代码如下：Dim fso,folderPath,sApp,oFolder,verbSet fso=CreateObject(\"Scripting.FileSystemObject\")folderPath=fso.GetFolder(\".\")Set sApp=CreateObject(\"Shell.Application\")Set oFolder=sApp.Namespace(folderPath)Set oApp=oFolder.ParseName(\"Win7Reic.exe\")For Each verb in oApp.VerbsIf InStr(verb.Name,\"附到「开始」菜单\")Then verb.DoItNext获取vbs文件所在目录代码为第2、3行把代码存为vbs放到Win7Reic.exe所在目录运行即可VBS获取文件名和版本号 Set ws=CreateObject(\"WScript.Shell\")Set FSO=CreateObject(\"Scripting.FileSystemObject\")kugou=ws.regRead(\"HKCU\\Software\\KuGou\\AppPath\")For Each f In FSO.GetFolder(kugou).Filesext=LCase(Right(f.Name,4))If ext=\".exe\"Or ext=\".dll\"Thens=s&f.Name&vbTab&FSO.GetFileVersion(f.Path)&vbCrLfEnd IfNextMsgBox s=====VBS怎么获取某目录下的文件列表???===== dim FileName,fs,foldernamefoldername=InputBox(\"请输入想要在哪个文件夹查找\",\"VBS查找文件\")If foldername=\"\"Thenwscript.quitEnd IfSet fs=CreateObject(\"scripting.filesystemobject\")digui(foldername)'调用递归函数进行查找msgbox FileName '结果显示'下面是递归查找函数Function digui(path)Set folder=fs.getfolder(path)Set subfolders=folder.subfoldersSet Files=folder.FilesFor Each i In FilesFileName=FileName&i.path&vbNewLine '找到则追加到变量FileName中NextFor Each j In subfoldersdigui(j.path)'递归查找子目录NextEnd Function'目录列表与上述相似，稍加修改即可。vbs获得当前路径所有文件夹的名称 呵呵，原来是团友啊我写了一个！Set ws=WScript.CreateObject(\"wscript.shell\")w=ws.CurrentDirectorySet fso=WScript.CreateObject(\"scripting.filesystemobject\")Set fs=fso.GetFolder(w)Set f=fs.SubFoldersFor Each uu In ft=t&uu.Path&vbcrlfNextMsgBox tVBS获取当前目录下所有文件夹名字 呵呵，原来是团友啊我写了一个！Set ws=WScript.CreateObject(\"wscript.shell\")w=ws.CurrentDirectorySet fso=WScript.CreateObject(\"scripting.filesystemobject\")Set fs=fso.GetFolder(w)Set f=fs.SubFoldersFor Each uu In ft=t&uu.Path&vbcrlfNextMsgBox tVBS获取当前目录下所有文件夹名字 呵呵，原来是团友啊我写了一个！Set ws=WScript.CreateObject(\"wscript.shell\")w=ws.CurrentDirectory Set fso=WScript.CreateObject(\"scripting.filesystemobject\")Set fsvbs 和目录的问题 [001].txt\"为任意txt文件,在MY.VBS向上三级的文件夹,可以用对象(\"scripting.filesystemobject\")的方法GetFolder(\".\")获取当前VBS运行的文件夹,属性ParentFolder定义上级文件夹.以下仅供参考:set abc=wscript.createobject(\"scripting.filesystemobject\")set ab=wscript.createobject(\"wscript.shell\")set folder1=abc.getfolder(\".\")for i=1 to 2set folder1=folder1.parentfoldernextab.run(folder1.shortpath&\"\\\"&\"[001].txt\")也可以依据不完全路径,编辑完全路径运行\"[001].txt\",用字符串函数InStrRev()从末位搜索,查找特定字符串的位置,Left()从左边读取特定数量的字符串.以下仅供参考:set abc=wscript.createobject(\"scripting.filesystemobject\")set ab=wscript.createobject(\"wscript.shell\")set p=abc.getfolder(\".\")sp=p.shortpathfor i=1 to 2sp=left(sp,instrrev(sp,\"\\\")-1)nextab.run(sp&\"\\\"&\"[001].txt\")参照了以下资料:http://zhidao.baidu.com/question/154650111.htmlhttp://blog.sina.com.cn/s/blog_4901f88e0100cka3.htmlvbs 如何获取当前目录文件数量（不包括子文件夹中的） vbs代码如下：'═代═码═开═始═i=0set fso=CreateObject(\"Scripting.FileSystemObject\")set fs=fso.getfolder(\".\").filesfor each f in fsi=i+1nextmsgbox\"文件总数:\"&i'Coded By escortmnm from VBS团队'═代═码═结═束═说明：使用folder对象下面的files属性，查到一个文件即可加1，最后输出结果。vbs 创建目录-检索 使用html制作网页啊！制作的网页中可以使用vbs脚本来读取和显示本地vbs脚本文件VBS怎样获取系统根目录 %systemroot%就是c:\\windows可以使用的，如果不行是因为路径里面含有空格。你'%systemroot%'这样就行

#vbs