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