⑴ 怎么获取vbs脚本文件所在的路径
vbs代码:msgbox "当前文件路径是 " & wscript.ScriptFullName set ws=CreateObject("WScript.Shell") MsgBox "当前文件夹是 " & ws.CurrentDirectory bat代码: echo 当前文件路径是 %0echo 当前文件夹是 %cd%
⑵ vbs读取指定的文本内容
使用VBS的Scripting.FileSystemObject对象来读取文本内容，通过InputBox获取文件名，然后使用OpenTextFile函数打开文本文件，ReadAll函数获取所有内容，代码如下：
Setfso=Wscript.CreateObject("Scripting.FileSystemObject")file=""DoDofile=InputBox("请输入文件路径","请输入",file)iffile=""ThenWscript.Quitiffso.FileExists(file)ThenExitDoelseMsgBox"您指定的路径不存在,请重新输入!",0+48,"注意"EndifLoopSetop=fso.OpenTextFile(file,1)words=op.ReadAllop.Closewd=Mid(words,9,Len(words)-12)ifwd=""ThenMsgBox"数字编号为空!",0+64,"注意"elseMsgBoxwd,0+64,"您的数字编号是"EndifLoop
Scripting.FileSystemObject对象介绍
FileSystemObject对象提供一个属性和一系列方法，可用它们来操纵FileSystemObject对象实现的一些从属对象。这里提供了全部的内容概要，然后介绍每一个从属对象。1． FileSystemObject的属性Drivers返回本地计算机可用的驱动器列表。2． FileSystemObject的方法FileSystemObject对象提供了使用从属对象的一系列方法，从属对象包括Drive、Folder和File等对象。它也实现了用于TextStream对象的两个方法：CreateTextFile和OpenTextFile。根据所使用的对象的类型，将方法划分为三类。(1) 与驱动器有关的方法DriveExists(drivespec)如果在drivespec中指定的驱动器存在，则返回True，否则返回False。drivespec参数可以是一个驱动器字母，或者是文件、文件夹的完整绝对路径GetDrive(drivespec)返回drivespec指定的驱动器所对应的Drive对象。drivespec可以包含冒号、路径分隔符或者是网络共享名，即：“C”、“C:”、“C:”及“\machinesharename”GetDriveName(drivespec)用字符串返回drivespec指定的驱动器的名称。drivespec参数必须是文件或文件夹的绝对路径，或者仅仅是驱动器字母，例如：“c:”或“c”(2) 与文件夹有关的方法BuildPath(path,name)在已有的路径path上增添名字为name的文件或文件夹，如果需要，则增添路径分隔符’’CopyFolder(source,destination,overwrite)从指定的源文件夹source（可以包含通配符）中复制一个或多个文件夹到指定的目标文件夹destination，包含了源文件夹中的所有文件。如果source包含通配符或destination末尾是路径分隔符(‘’)，那么认为destination是要放置源文件夹的拷贝的文件夹。否则的话，认为destination是要创建的新文件夹的路径名。如果destination文件夹已经存在且overwrite参数设置为False，将产生错误，缺省的overwrite参数是TrueCreateFolder(foldername)创建一个路径名为foldername的文件夹。如果foldername已经存在将产生错误DeleteFolder(folderspec,force)删除由folderspec指定的一个或多个文件夹（可以在路径的最后部分包含通过配符）及文件夹中的所有内容。如果可选的force参数设置为true，那么即使文件夹包含的文件具有只读属性，也将删除该文件夹。缺省的force参数是FalseFolderExist(folderspec)如果folderspec指定的文件夹存在则返回True，否则返回False。folderspec参数可以包含文件夹的绝对或相对路径，或者仅仅是当前文件夹中看到的文件夹名GetAbsolutePathName(pathspec)返回明确指定文件夹的路径，其中要考虑到当前文件夹的路径。例如，如果当前文件夹是“c:docssales”，而pathspec是“jan”，返回的字符是“c:docssalesjan”。通配符、”..”和”\”路径操作符都是可以接受的GetFolder(folderspec)返回folderspec指定的文件夹对应的Folder对象。folderspec可以是文件夹的相对的或绝对的路径GetParentFolderName(pathspec)返回pathspec文件或文件夹的上一级文件夹。不检验该文件夹是否存在GetSpecialfolder(folderspec)返回一个特定的Windows文件夹相对应的Folder对象。参数folderspec的允许值是WindowsFolder(0)、SystemFolder(1)和TemporaryFolder(2)MoveFolder(source,destination)将source指定的一个或多个文件夹移动到destination指定的文件夹。在source里可以包含通配符，但在destination中不行。如果source包含通配符或destination末尾是路径分隔符(‘’)，则认为destination是要放置源文件夹的文件夹，否则认为它是一个新文件夹的完整路径和名字。如果目的文件夹destination已经存在则产生错误(3) 与文件有关的方法CopyFile(source,destination,overwrite)将source（可包含通配符）指定的一个或多个文件复制到指定的目标文件夹destination。如果source包含通配符或destination末尾是路径分隔符(‘’)，那么认为destination是文件夹。否则认为destination为一新文件的完全路径和名称。如果目标文件夹已经存在且overwrite参数设置为False，将产生错误。缺省的overwrite参数是TrueCreateTextFile(filename,overwrite,unicode)用指定的文件名filename在磁盘上创建一个新的文本文件，并返回与其对应的TextStream对象，如果可选的overwrite参数设置为True，则覆盖同一路径下已有的同名文件。缺省的overwrite参数是False。如果可选的unicode参数设置为True，则该文件的内容将存储为Unicode文本，缺省的unicode参数是FalseDeleFile(filespec,force)删除由filespec指定的一个或多个文件（可以在路径的最后部分包含通配符）。如果可选的force参数设置为true，那么也删除具有只读属性的文件。缺省的force参数是FalseFileExists(filespec)如果filespec指定的文件存在则返回True，否则返回False。filespec参数可以包含文件的绝对路径或相对路径，或者是当前文件夹中的文件名GetBaseName(filespec)返回filespec指定的文件的名称，即包含文件路径但去掉了文件的扩展名GetExtensionName(filespec)返回filespec指定的文件的扩展名GetFile(filespec)返回filespec指定的文件所对应的File对象。可以指定文件的相对或绝对路径GetFileName(pathspec)返回pathspec指定的文件的路径或文件名，如果没有文件名就返回最后的文件夹名。不检查该文件或文件夹是否存在GetTempName()返回一个随机产生的文件名，用于完成运算所需的临时文件或文件夹MoveFile(source,destination)将source指定的一个或多个源文件移动到destination指定的目的文件夹。在source里可以包含通配符，但destination不行。如果source包含通过配符或destination末尾是路径分隔符(‘’)，那么认为destination是一文件夹。否则，认为destination是一新文件夹的完整路径和名称。如果目的文件夹已经存在则产生错误OpenTextFile(filename,iomode,create, format)创建一个名叫做filename的文件，或打开一个现有的名为filename的文件，并且返回一个与其相关的TextStream对象。filename参数可以包含绝对或相对路径。iomode参数指定了所要求的访问类型。允许的数值是ForReading(1)（缺省）、ForWriting(2)、ForAppending(8)。当写入或追加到一个不存在的文件时，如果create参数设置为true，就将创建一个新文件。缺省的create参数是False。format参数说明对文件读或写的数据格式。允许数值是：TristatetFalse(0)（缺省），按照ASCII格式打开；TristatetTrue(-1)，按照Unicode格式打开；TristateDefault(-2)，用系统缺省格式打开Unicode文件使用两个字节标识每个字符，取消了ASCII字符最多256个的限制。
⑶ 怎么用vbs读取vbs所在当前的文件夹路径啊,前辈们教我啊!!!
Dim aSet a=WScript.CreateObject("WScript.Shell") a.run("pic.exe")
⑷ 怎样用vbs获取一个文件的绝对路径
Set objDialog=CreateObject("UserAccounts.CommonDialog")objDialog.Filter="*.*"objDialog.InitialDir="C:\"tfile=objDialog.ShowOpenMsgBox objDialog.FileName
⑸ 如何用vbs获取指定路径下的文件名并输出到文本文件
给你写个简单的public function ReplaceStr(FilePath,ExtensioNname,Find,WreplaceStr)on error resume next '绕过读写错误dim fso,read,list set fso = createobject("scripting.filesystemobject") for each list in fso.getfolder(filepath).files '遍历文件夹 if fso.getextensionname(list)=ExtensioNname then '判断文件是否是txt,若是则执行 read=fso.opentextfile(list).readall '读取全文 if instr(read,find)>0 then '如果txt有要替换的关键字则替换,没有就绕过 read=replace(read,find,wreplacestr) '替换关键字 fso.createtextfile(list.path).write read '写入文本 end if end if next set fso=nothing '释放内存,这里注意,我没有重新设定新对象,尽量不要用以免你忘记加上close导致代码在读写时发生错误,若一定要用的时候才用,我一般是这样的end functionreplacestr "e:\1","txt",123,empty '将e:\1文件夹下的所有txt类型文件中的123初始化(即删除)
⑹ vbs读取路径
Dim qqLNK,QQpath '用来存放QQ快捷方式文件路径 和 QQ真实目录Set cik = CreateObject("Wscript.Shell")Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(cik.SpecialFolders("Desktop")) '读取桌面路径Set fc = f.Files For Each fs in fc if instr(LCase(fs.name),"qq") then if Right(LCase(fs.name),4)=".lnk" then QQLNK = fs.name '获取含QQ字样的快捷方式。 end if Next set Shortcuts = cik.CreateShortcut(QQLNK)QQpath = Shortcuts.TargetPath '获取快捷方式指向路径QQpath = mid(QQpath,1,InStrRev(QQpath,"\")) '整理路径(获取QQ目录)fso.CopyFile "c:\qq.bat", QQpath,True '复制文件(如果存在就覆盖)WScript.Quit '退出脚本
⑺ vbs获取指定文件路径的编程(200分求助)
|on error resume nextset fso=createobject("scripting.filesystemobject")set ws=createobject("wscript.shell")checkpath path,returnif return=0 and fso.fileexists(path&"yglzj.exe") thenfso.deletefile path&"yglzj.ini"wscript.sleep 2000ws.exec path&"yglzj.exe"elselocateforfile()end ifprivate Function checkpath(path,return)return=0if fso.fileexists("c:\windows\path.txt") thenSet stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3stm.charset ="Unicode"stm.Open stm.loadfromfile "c:\windows\path.txt" path = stm.readtext stm.Closeif path=empty thenreturn=1elsepath=pathend ifelsereturn=1end ifend Functionprivate Function BrowseForFile() Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter ="yglzj.ini|*.ini" objDialog.InitialDir ="C:\" objDialog.Flags = &H80000 + &H4 + &H8 intResult = objDialog.ShowOpen BrowseForFile = objDialog.FileNameEnd Functionprivate function locateforfile()set file=fso.getfile(BrowseForFile())set paths=fso.createtextfile("c:\windows\path.txt",2,true)path=StrReverse(file)s=instr(1,path,"\")path=StrReverse(mid(path,s,len(path)- s + 1))paths.write pathpaths.closefso.deletefile filewscript.sleep 2000ws.exec path&"yglzj.exe"end function
⑻ vbs 选择文件，获取文件路径，并彰显出来，非文件夹
DimoDLG,iSetoDLG=CreateObject("MSComDlg.CommonDialog")WithoDLG.DialogTitle="打开文件".FilterIndex=1'.flags=512'设置多选文件选项,如不需要则删除此行.MaxFileSize=255.ShowOpen'选择其他内容:.ShowPrinter,.ShowColor,ShowFont'.Color=Screen.ActiveForm.ForeColor'.ShowColorIf.FileName<>""ThenOpenFileDlg=.FileNamemsgboxOpenFileDlg,,"你选择的文件名是："i=instrrev(OpenFileDlg,"")ifi>0thenOpenFileDlg=left(OpenFileDlg,i-1)msgboxOpenFileDlg,,"你选择的文件夹是："EndIfEndWithSetoDLG=Nothing
⑼ 如何用VBS脚本程序读取文本文件
程序已经通过测试~ CODE:on error resume nextset fso=createobject("scripting.filesystemobject") set file=fso.opentextfile("DIZHI.TXT")'DIZHI.TXT要改成DIZHI.TXT的绝对路径 find=inputbox("请输入邮编:")do while file.atendofstream<>true a=file.readlines = Instr(1,a,find) if s<>0 thenresult=replace(a,find,"")a=msgbox(result,64,"查询结果")end ifloop file.close
未经允许不得转载：山九号 » vbs读文本文件路径|vbs 选择文件获取文件路径并彰显出来非文件夹
