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

熱點內容
macqq文件保存在哪裡 瀏覽:215
vmx找不到文件 瀏覽:701
機械制圖和編程哪個難 瀏覽:123
手機怎麼看app的病毒 瀏覽:701
如何固定word里的圖片 瀏覽:426
看青春校園劇哪個app可以看超前預告 瀏覽:794
投標文件報價以哪個為准 瀏覽:183
蘋果手機icloud密碼忘了怎麼解鎖 瀏覽:68
pptv電視網路連接 瀏覽:452
北京網路信息安全公司 瀏覽:646
uci數據集怎麼用weka 瀏覽:208
win10e信缺少必要組件 瀏覽:995
水星訪客網路怎麼沒有網 瀏覽:156
怎麼取消迅雷7升級提示音 瀏覽:47
體驗套餐管理系統文件 瀏覽:46
查看快遞的有哪些app 瀏覽:372
pc版百度雲哪個版本好 瀏覽:575
javaj2ee教程 瀏覽:287
文件在微信顯示不是完整的 瀏覽:888
少兒編程常用語言有哪些 瀏覽:968

友情鏈接