導航:首頁 > 文件目錄 > vb獲取系統文件夾

vb獲取系統文件夾

發布時間:2025-01-16 14:19:19

Ⅰ 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

閱讀全文

與vb獲取系統文件夾相關的資料

熱點內容
word圖片覆蓋文字 瀏覽:8
微信653安卓版下載 瀏覽:38
怎麼搜索文件內容包含的字 瀏覽:189
在哪些網站能抓取天氣數據 瀏覽:890
沒激活的iphone能接電話嗎 瀏覽:513
excel批量引用多個文件數據 瀏覽:443
web頁面主頁默認文件名 瀏覽:516
網站優化主要包含哪些方面 瀏覽:617
如果做軟體編程買什麼樣的電腦好 瀏覽:476
win10輸入gpeditmsc沒反應 瀏覽:243
怎麼把多個文件夾名字導入excel 瀏覽:242
iphoneqq視頻懸浮窗 瀏覽:309
卷積神經網路怎麼訓練 瀏覽:415
微信朋友圈不帶圖片 瀏覽:965
有信網路電話用流量嗎 瀏覽:396
網上看中超是什麼app 瀏覽:447
什麼軟體在手機上也能編程 瀏覽:326
工業機器人如何編程維護 瀏覽:761
在word中如何輸入橫線 瀏覽:574
口袋妖怪葉綠升級道具 瀏覽:430

友情鏈接