怎么迅速查找文件的绝对路径（已经解决） - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 怎么迅速查找文件的绝对路径（已经解决）

标题：怎么迅速查找文件的绝对路径（已经解决）

只看楼主

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
结帖率：100%

楼主

问题点数：0 回复次数：5

怎么迅速查找文件的绝对路径（已经解决）

如题

[此贴子已经被作者于2007-5-25 11:23:35编辑过]

搜索更多相关主题的帖子: 路径　文件　

2007-05-25 01:22

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 2 楼

得分:0

请指教

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-25 10:15

Joforn

等　级：贵宾
威　望：23
帖　子：1242
专家分：122
注　册：2007-1-2

第 3 楼

得分:0

问题是听不明白你想问什么？

VB QQ群：47715789

2007-05-25 11:09

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 4 楼

得分:0

假如我在D盘下有个abc.txt文件如何可以获得这个文件的绝对路径

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-25 11:16

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 5 楼

得分:0

Text1.Text = App.Path & "\abc.txt"

If Mid(Text1.Text, 4, 1) = "\" Then
Text2.Text = Left(Text1.Text, 3) & Mid(Text1.Text, 5)
Else
Text2.Text = Text1.Text

End If

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-05-25 11:22

心中有剑

等　级：新手上路
威　望：5
帖　子：611
专家分：0
注　册：2007-5-18

第 6 楼

得分:0

dir 啊!

2007-05-25 13:26

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