vb獲取系統文件夾

Ⅰ vb 完整路徑獲取文件夾路徑

Path = "c:\soft\中國人\setup.exe"
For i = 1 To Len(Path)
If Mid(Path, i, 1) = "\" Then Print Left(Path, i)
Next i
或者：
Path = "c:\soft\中國人\setup.exe"
For i = 1 To Len(Path)
If Mid(Path, i, 1) = "\" Then Text1.Text = Left(Path, i)
Next i
將路徑存回放於答text1內

Ⅱ 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

Ⅲ VB.NET獲取目錄文件夾名稱

先用System.IO.Directory.GetDirectories函數獲取子目錄的名稱（包括其路徑），再用System.IO.Path.GetFileName獲取子目錄的名稱。下面是代碼：
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For Each s In System.IO.Directory.GetDirectories("C:\Windows")
Console.WriteLine(System.IO.Path.GetFileName(s))
Next
End Sub
下面是部分輸出：
Application Data
AppPatch
assembly
BOCNET
Boot
Branding
ConfigSetRoot
Cursors
Debug
DigitalLocker
Downloaded Installations
Downloaded Program Files
ehome
en-US
Fonts
Globalization
Help
...
可能有更簡潔的方法，你可以到MSDN看看
System.IO.Directory.GetDirectories：http://msdn.microsoft.com/zh-cn/library/c1sez4sc.aspx
System.IO.Path.GetFileName：http://msdn.microsoft.com/zh-cn/library/system.io.path.getfilename.aspx
通用 I/O 任務：http://msdn.microsoft.com/zh-cn/library/ms404278.aspx

Ⅳ VB怎樣快速獲取當前文件夾下的所有文件的路徑（包括子目錄）

有兩種方法：
1、使用DIR遞歸，不過這是微軟明確不推薦的
2、最快但不太正規的
使用 Shell "cmd /k dir c:\windows /s/b/a >>d:\jg.txt"
c:\windows 目標文件夾，當前文件夾為 app.path，你可以根據要求生成命令字元串
d:\jg.txt 為臨時文件
執行這行後再讀取臨時文件即可。極快！

Ⅳ VB查找指定文件夾並獲取文件路徑的代碼

1.首先打開來Excel電子表格，然自後在開發工具中打開VBA編輯器，如下圖。

Ⅵ VB問題： 想做一個「獲取指定目錄下所有文件夾名稱和路徑」（包含子目錄）的功能

要想獲得目錄下所有文件名，得先得到一個所有文件的集合，可以用fso搞定。
引用 mircosoft scripting runtime，然後：
Dim fs As New FileSystemObject '定義fso對象和文件夾、文件對象
Dim fd As Folder
Dim fl As File
Set fd = fs.GetFolder("D:\_sys\") '創建文件夾對象
For Each fl In fd.Files '文件夾對象的Files屬性是一個集合，包括目錄下的所有文件對象
Print fl.Path & fl.Name '枚舉每個文件，然後輸出
Next
這只是一個文件夾，文件夾對象還有個屬性，SubFolders，也是一個集合，代表目錄下的所有子文件夾，可以參照上面的方法枚舉。但是只有1級子文件夾，要遍歷所有的話可以用遞歸的方式，LZ可以自己試試O(∩_∩)O

Ⅶ VB獲取文件夾路徑

用API遍歷當前桌面已打開的子窗口,獲得窗口句柄和ID,然後通過ID獲得該文件夾的路徑,總之一句話,你要實現的功能VB無法做到,API可以

Ⅷ 用VB怎樣獲取一個文件夾內所有文件名

VB可以使用FileListBox 控制項來獲取指定文件夾內的所有文件名。

FileListBox 控制項，在運行時團叢彎，在 Path 屬性指定的目錄中，FileListBox 控制項將文件定位並列舉出來。該控制項用來顯示所選擇文件類型的文鄭凳件列表。例如，可以在應用程序中創建對話框，通過它選擇一個文件或者一組文件。

以下是組合使塌悶用DriveListBox 、控制項DirListBox 控制項和FileListBox 控制項來獲取硬碟下任何一個文件夾內的文件名。

PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub

PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
EndSub

PrivateSubFile1_Click()
DimiAsLong
Debug.Print"目錄夾內存在"&File1.ListCount&"個文件。"
EndSub