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