導航:首頁 > 文件目錄 > 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獲取系統文件夾相關的資料

熱點內容
求個能用的蘋果賬號 瀏覽:419
如何快速把文件夾里重復的歌刪除 瀏覽:606
如何用編程求雞兔同籠 瀏覽:604
word2007圖片選擇 瀏覽:630
特化頭文件 瀏覽:683
資料庫系統概論薩師煊王珊 瀏覽:381
信用玩家app更名為什麼 瀏覽:720
caffe對應的vs版本 瀏覽:205
社交類app廣告語 瀏覽:890
js通過月份獲取月份最後一天 瀏覽:662
mc網易下載的光影在哪個文件夾 瀏覽:427
java如何新建文件 瀏覽:602
手機系統root就不能升級嗎 瀏覽:754
如何打開m4c文件 瀏覽:248
什麼是數據可視化儀表盤 瀏覽:709
蘋果打開查找iphone 瀏覽:409
取證軟體對鏡像文件格式不支持 瀏覽:789
舞台燈光光域網文件 瀏覽:182
一加sa5g網路怎麼設置 瀏覽:237
初中扛把子李振東qq 瀏覽:985

友情鏈接