1. vb 选择文件 获取文件路径
首先在窗体中放置
Microsoft
Common
Dialog
Control，名称指定为
cdlg1。
然后放一个按钮，内代码如容下：
Private
Sub
Command1_Click()
Dim
fname
As
String
Dim
content
As
String
cdlg1.ShowOpen
fname
=
cdlg1.FileName
MsgBox
fname
Open
fname
For
Input
As
#1
Input
#1,
content
MsgBox
content
Close
#1
End
Sub
2. vb 查找文件路径
你是要完成以下哪种工作？
1、在本地磁盘中搜索QQ.EXE;
2、查找当前正在运行的QQ.EXE的路径。
对应1的回答：
使用循环+Dir函数
对应2的回答：
使用以下API:
openprocess,enumprocessmoles,getmolefilenameexa,closehandle,findwindow,getwindowthreadprocessid
具体用法去查网络，到处都是
3. vb 如何通过一个文件的全路径获得该文件所在文件夹
'编写函数，获取
PrivateFunctionGetLuJIn(ByValaAsString)AsString
DimiAsLong
Fori=Len(a)To1Step-1
Ifmid(a,i,1)=""Then'获取最后一个""位置
GetLuJin=Left(a,i-1)'函数返回最后一个""前面的东西
ExitFunction'获取之后，函数没专什么事了，退出属
Endif
Nexti
EndFunction