导航:首页 > 文件目录 > 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里的图片 浏览: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
我的cad软件打不开dwf格式文件 浏览:363
信息与数据的关系有哪些 浏览:501
删除c盘用户文件夹 浏览:331
钉钉可以传送文件吗 浏览:438

友情链接