标题:关于vb读取文件的路径问题
只看楼主
rich_ying
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-12-22
 问题点数:0 回复次数:6 
关于vb读取文件的路径问题

在下面,涉及到一个目录问题
--------------------------------------------------------------------------------

Text1.Text = ""
fno = FreeFile
Open "e:/abc.txt" For Input As #fno
Do Until EOF(fno) then
Line Input #fno, newline
Text1.Text = Text1.Text & Trim(newline) & Chr(13) + Chr(10)
Loop
Close #fno

--------------------------------------------------------------------------------
我现在用的是绝对路径e:/abc.txt,
有没有相对路径呀?
比如,我在e:/myvb/目录下存放了我的vb程序目录,编译后的exe文件也在这里,
而我的abc.txt文件也在e:/myvb/下,能不能表示成相对路径呀?

搜索更多相关主题的帖子: 路径 fno newline 文件 
2006-12-22 15:55
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
App.Path & "\abc.txt"

我的msn: myfend@
2006-12-22 16:01
rich_ying
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-12-22
得分:0 
thank you
2006-12-22 16:05
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
得分:0 
不  不是吧````

[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2006-12-23 10:18
小妖1119
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-12-22
得分:0 
。。。
2006-12-23 10:44
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 

有BUG啊
在一般目录下可以用 比如 E:\MSDN98\abc.txt

如果你直接存放到 C D E== 盘下 就会出现 E:\\abc.txt 导致地址不能用


If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-05-25 11:14
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
得分:0 
app.path &amp; iif (right(app.path,1)="/","","/") &amp; "abc.txt"

2007-05-25 13:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-111322-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.140509 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved