bycj.net
当前位置:首页 >> vB.nEt如何取得完整路径下最后一个文件夹的名称 >>

vB.nEt如何取得完整路径下最后一个文件夹的名称

function Newfile as fileinfo Dim dic As New System.IO.DirectoryInfo("C:\Users\Q\Desktop\数据") Dim files = dic.GetFiles.OrderByDescending(Function(s) s.CreationTime) if files.return files.first end function 注意引入 system.linq

按照指定的完整路径,循环搜索其中文件夹,搜索到一个,就保存到字符串变量,搜索到新的覆盖该变量,一直到循环结束,输出该变量的值.

如果没有记错的话,应该使用System.Environment类,它的参考资料在此:http://msdn2.microsoft.com/en-us/library/system.environment.aspx祝你好运.

先用System.IO.Directory.GetDirectories函数获取子目录的名称(包括其路径),再用System.IO.Path.GetFileName获取子目录的名称.下面是代码:Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.

如果想要获得当前文件中的文件名只需要String [] fileName = file.list();就可以了.如果要包括文件中的文件名就可以用递归的方式.下面是两个具体的实现. 其中public static String [] getFileName(String path)是只得到当前文件中的文件名.

Dim tt As String() = Directory.GetDirectories("C:\") '返回所有的子文件夹 Dim t As String For Each t In tt 这里处理子文件夹 Next

' Part I查找该文件夹的所有文件 For Each f In fd.Files If UCase(f.Name) = UCase(FileName) Then '查找文件. Debug.Print f.Path List1.AddItem f.Path End If DoEvents Next ' Part II递近查找所有子文件夹 For Each sfd In fd.SubFolders FindFile sfd, FileName ' 循环查找 Next End Sub

解决这个问题有两种方法.第一种:知道了文件的全路径,那么路径中当然也包含文件所在的文件夹信息,只要从中提取即可.例如,已知文件全路径为“C:\Windows\System32\abc.dll”并赋予变量strPt,可用过下面语句获取文件夹.left(strPt,

获取方法,参考实例如下:'获取路径名各部分: 如: c:\dir1001\aaa.txt'获取路径路径 c:\dir1001\ Public Function GetFileName(FilePathFileName As String) As String '获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i Len

'获取指定目录的所有文件和文件总数 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer = 0 Dim MyDir As String = "C:\" Dim MyInfo As String = MyDir + "目录下

相关文档
网站首页 | 网站地图
All rights reserved Powered by www.bycj.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com