**************vbs 高手进（急）

来源：百度知道 编辑：UC知道 时间：2024/06/03 03:54:37
我用了个文本来纪录路径
我如何在vbs中直接调用这些路径啊
我试了 不能用readline的方法用哦
摆脱了
我为了这烦恼了好久啊
摆脱了
摆脱了
摆脱了
摆脱了
摆脱了
哦! 不好意思，因为太急，没陈述清楚啊。
就是我先写了段vbs的代码，写入我所输入的路径（用了inputbox）到folder.txt，而后我在想取出写入folder.txt中的路径，我是这样用的
set fso=createobject("scripting.filesystemobject")
Set objTextFile = fso.OpenTextFile("Info\folder.txt", 1)
strNextLine = objTextFile.Readline
Set objfile0 = fso.GetFolder(strNextLile)
objfile0.Name= fso.getbasename(strNextLile)
objTextFile.close
但是我这样用，根本没用，总是弹出个框来，说我的类型不对。
后来我也试了试再写入，我有写了条代码：
Set objTextFile2 = fso.OpenTextFile("Info\folder.txt", 8)
objTextFile2.writeline strNextLile
后来发现根本就没有写东西进去，我真的有点绝望了，这东西苦了我大半天呢？
但愿哪位好心大哥大姐能帮我看看，给出个答案哦（最好有例子就好了）
我在这里先谢谢关注我的人了！~~~~~

没明白说什么。
那么写2个读写文本文件的例子吧= =

dim inp as string
open "文件路径如c:\ff.txt" for input as #1
input #1,inp
close#1

写文件:
open "文件路径" for append as #1 ''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入
print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号
close#1

用Fso吧

你自己按照这里改下...（应该不难啦~）加不加分无所谓 关键是希望你的问题能够解决..有问题的话发消息给我.

d=inputbox("请输入路径:","提示")
Set Fsys=CreateObject("Scripting.FileSystemObject")

Set objFile = fsys.OpenTextFile("folder.txt", 2, True)'写入数据
objFile.Write d
objFile.Close

set fso=Fsys.opentextfile("folder.txt",1)'读取数据
i=1
do while fso.atendofstream<>true
n=fso.readline
msgbox(n)
i=i+1
loop