vb获得文件路径

A. VB获取文件夹路径

用API遍历当前桌面已打开的子窗口,获得窗口句柄和ID,然后通过ID获得该文件夹的路径,总之一句话,你要实现的功能VB无法做到,API可以

B. VB中如何直接获取文件的绝对路径

path=mid(wscript.scriptfullname,1,len(wscript.scriptfullname) - instr(1,strreverse(wscript.scriptfullname),"\") + 1)
msgbox path,,"你的存储路径是："

这样可以获取文件存储的绝对路径，并且用msgbox显示出来

C. VB程序 让文件夹拖放到程序上获取该文件夹的路径！

'以文本框控件为例，当然也可以设置为其他控件，或者设置为窗体本身
Private Sub Form_Load()
'先设置对象为可接收拖放
Me.Text1.OLEDropMode = 1

'如果想设置为窗体本身为接收对象的话，可以设置为
'me.OLEDropMode=1
'然后编写 Sub Form_OLEDragDrop(....)函数，格式和代码和文本框函数中的一样。
End Sub

'当拖动对象到文本框上时
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nCount, nIndex As Integer
With Data
nCount = .Files.Count
For nIndex = 1 To nCount
strPath = strPath & .Files.Item(nIndex) & vbNewLine
Next
End With
Text1.Text = Trim(strPath)
End Sub

D. VB查找指定文件夹并获取文件路径的代码

1.首先打开来Excel电子表格，然自后在开发工具中打开VBA编辑器，如下图。

E. VB获取文件完整绝对路径

'添加一个Microsoft Common Dialog Control 6.0部件
'添加一个CommandButton控件
'添加一个ListBox控件
'添加一个Label控件
'------------------------------------------------

'读写INI文件
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function SaveINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lplFileName As String) As Long

'读写INI文件
Function GetINI(AppName As String, KeyName As String, filename As String) As String
Dim RetStr As String
RetStr = String(10000, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))

'读：Rtn = GetINI(AppName, KeyName, filename)
'写：SaveINI appname,keyname,string,filename
End Function

Private Sub Command1_Click()
CommonDialog1.Filter = "所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.filename
End Sub

Private Sub Form_Load()
For i = 0 To Val(GetINI("listcount", "Count", App.Path & "\st.ini")) - 1
List1.AddItem GetINI("list", CStr(Format(i, "000")), App.Path & "\st.ini"), i
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 1 To List1.ListCount
SaveINI "list", CStr(Format(i - 1, "000")), List1.List(i - 1), App.Path & "\st.ini"
Next i
SaveINI "ListCount", "Count", List1.ListCount, App.Path & "\st.ini"
End Sub

Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub

F. vb获取u盘路径文件

vb获取u盘路径文件(vb获取文件夹路径)准备工作
Dell 灵越5437一台（光驱被我拆了装固态）
8GU盘一个，需要格式化（大于4G，毕竟ISO文件就已经大于4G了）
CentOS7.1 iso文件一个（去这里下载:http://www.centoscn.com/）
UltraISO工具（制作启动U盘）
1.制作U盘
①使用UltraISO工具 文件-》打开 选择你的ISO文件
电脑

②启动-》写入硬盘映像-》写入方式（几种写入方式的差别:http://..com/link?url=_85v9zFxgEl6_T46O8_）-》写入

2.开始安装
把制作好的U盘插入需要安装linux的电脑，把电脑的第一启动方式设置为U盘启动之后 会进入选择安装界面
**
接下来就是最重要的地方，关系着你能不能安装成功 我就是在这里卡了好久
**
先移动到第一项Install
然后按tab键编辑路径
将
vmlinuz initrd=initrd.img inst.stage2=hd:LABEL=CentOS\x207\x20x86_64 quiet
改成
vmlinuz initrd=initrd.img linux dd quiet
回车
然后就能在显示出的列表中 查看你的硬盘信息，很清晰就能知道哪一个是你的U盘（一般显示的几个 格式为NTFS的都是你电脑自身的盘符，另外的一个就是你的U盘，记下你的U盘的盘符名字 我的就是sda4）
使用ctrl+alt+del 重新启动电脑，重复上面的步骤 这一次 将
vmlinuz initrd=initrd.img inst.stage2=hd:LABEL=CentOS\x207\x20x86_64 quiet
改成
vmlinuz initrd=initrd.img inst.stage2=hd:/dev/sda4（你自己的U盘盘符） quiet
回车 等待安装程序启动，进行CentOS的安装
3.Linux引导安装
选择中文安装
选择时区，设置时间，能够在网络与主机里面连接wifi之后 在时间设置里面使用网络时间
选择软件的安装源 U盘安装一般是默认选择 一般是Packages文件夹，不用管
比较常用的是最小化安装（安装快，只有命令行操作）
带有桌面的安装（一些配置和使用都可以图形化操作，较好用）
服务器版安装（特定组件可以省掉自己安装的很多问题），这里选择最小化安装，另外可以根据自己的需要从右面选择部分组件安装
刚开始接触Linux的朋友建议使用GHOME图形操作界面，好上手
网络和主机名里面配置网络信息
我这里是用的虚拟机安装 所以安装位置只能选择虚拟机，但是在真机安装的时候 需要选择具体的安装位置，如果之前电脑用过WIndows 硬盘已经分区了 需要进行磁盘释放，之后选择安装位置
全部信息确认完毕之后 就可以开始安装了
在这里可以新建用户 设置root操作 等待下方安装进度完成 之后就能进入Linux系统了 电脑

G. vb 获得选中文件夹或文件路径

以下是我的代码，已经测试通过：

Dim fso As Object
Dim wsh As Object
Dim DesktopPath As String
Dim bReady As Boolean

Public Function formatPath(sPath As String) As String
formatPath = sPath
If Right(sPath, 1) <> "\" Then formatPath = sPath & "\"
End Function

Private Sub Form_Load()
Set fso = CreateObject("Scripting.FileSystemObject")
Set wsh = CreateObject("WScript.Shell")
DesktopPath = wsh.SpecialFolders("Desktop") & "\" '获取桌面路径

bReady = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set fso = Nothing
Set wsh = Nothing
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path ' 当目录改变时，设置文件路径.
End Sub

Private Sub File1_Click()
sPath = formatPath(Dir1.List(Dir1.ListIndex)) '获取选择的路径

Text1.Text = sPath & File1.FileName

bReady = True
End Sub

Private Sub Command1_Click() '复制
If bReady = True Then fso.CopyFile Text1.Text, DesktopPath & File1.FileName
End Sub

Private Sub Command2_Click() '删除
If bReady = True Then fso.DeleteFile Text1.Text: File1.Refresh
End Sub

Private Sub Command3_Click() '剪切
If bReady = True Then fso.MoveFile Text1.Text, DesktopPath & File1.FileName: File1.Refresh
End Sub