Dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.GetFile(Wscript.scriptfullname).name
--------------------------------------------------
获取自身完整路径的
Dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.GetFile(Wscript.scriptfullname).path本回答被提问者采纳
vbs怎么得到自己的文件名
获取自身文件名的——Dim fso,f Set fso = CreateObject("Scripting.FileSystemObject")f = fso.GetFile(Wscript.scriptfullname).name --- 获取自身完整路径的 Dim fso,f Set fso = CreateObject("Scripting.FileSystemObject")f = fso.GetFile(Wscript.scriptfullname).path ...
如何用vbs获取指定路径下的文件名并输出到文本文件
把文本文件处理为数组，每行为一个数组元素，然后在每个元素中查找关键词，vbs可以直接使用instr函数来查找，也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。第一种，使用instrc = split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,vbcrlf)for i = 0 to...
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).Files ext = LCase(Right(f.Name, 4)) If ext = ".exe" Or ext = ".dll" Then s = s & f....
vbs获得当前路径所有文件夹的名称
呵呵，原来是团友啊我写了一个！！Set ws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectory Set fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w)Set f=fs.SubFolders For Each uu In f t=t & uu.Path & vbcrlf Next MsgBox t ...
VBS 关于提取WORD第二行的文字为文件名的方式
1、用记事本新建一个文本文件，把它保存为“批量重命名.vbs”（注意不要弄成了“批量重命名.vbs.txt”，也就是要确保其扩展名为“.vbs”）；2、把下列代码粘贴到这个VBS文件中：Option Explicit Const g_strRootPath = "c:\\Temp\\docs\\Word\\ToRename\\" ' 指定存放所有文件的目录，可以有子目...
网址链接是乱码,VBS怎么用算它后面的文件名
提取每个形如“%XX ”部分，转换成一个一个的字节，直接将字符串显示就好了。我习惯用C语言，不知道VBS中的字符是一个字节还是两个字节。如果一个字是由两个字节构成的，那么提取“%XX%XX“的部分，转换成一个字，如%E5%A7代表着两个字节转换成数字为58791。这样就可以把所谓的“乱码”变成正常的...
用VBS 获得文件夹下所有文件名,扩展名,不要用批处理,谢了
'功能:得到文件后缀名(扩展名)'输入:文件名 '输出:文件后缀名(扩展名)'''Public Function GetExtName(str
VBS获取文件夹下的所有文件名称,把名称写到一个文档里
把下面代码复制到VBS文件，运行后获取当前文件夹路径下的所有文件夹名字（不带路径）文件夹名字生成在Comp.txt中 Set ws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectory Set fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w)Set f=fs.SubFolders For Each uu ...
VB 查找某个盘下的一个特定文件名的文件
vbs代码如下：（遍历e盘找到后以对话框的形式提示文件路径）Set Fsys=WScript.CreateObject("Scripting.FileSystemObject")dim s:Call Visit("e:") 'a b c d随自己改 set file=fsys.createtextfile("list.txt")file.write s file.close Sub Visit(folder)s=s&folder&vbcrlf Set oFolder=Fsys....
通过vbs脚本或者bat脚本,实现获取文件名和文件大小等信息并输出到Excel...
自己建一个VBS文件，把下面的代码扔进去。可以自己制定路径，生成C:\\1.csv文件。dim SF,sE,tF dim fs,oF,sT sub getFd(fd)wrtf fd for each tmpFd in fd.subfolders getFd tmpFd next end sub sub wrtF(fd)for each tmpfile in fd.files sE.write tmpfile.name & "," & tmpfile....
