我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net比对文件夹,vbnet vb区别

vb.net如何判断路径是文件还是文件夹

脱离具体的环境谈并没有任何意义,所以如果当前电脑上存在此文件就是文件,存在此文件夹则为文件夹,否则什么也不是。

肃北网站建设公司成都创新互联公司,肃北网站设计制作,有大型网站制作公司丰富经验。已为肃北超过千家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱,请找那个售后服务好的肃北做网站的公司定做!

'Imports System.IO

Dim s As String = "C:\1.txt"

If File.Exists(s) Then

MessageBox.Show("文件")

ElseIf Directory.Exists(s) Then

MessageBox.Show("路径")

Else

MessageBox.Show("什么都不是")

End If

vb.net,一文件夹下存在若干子文件夹,如何判断哪些子文件夹为空(子文

'通过过System.IO.DirectoryInfo对象可以查阅目录信息,下面是遍历一个文件夹下所有层次的子文件夹,如果只检查下一层目录就更简单了。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim folder = New System.IO.DirectoryInfo("D:\Documents")

Dim items = getemptyfolder(folder)

For Each item In items

Console.WriteLine(item.FullName)

Next

End Sub

Function getemptyfolder(ByVal folder As System.IO.DirectoryInfo) As System.IO.DirectoryInfo()

Dim items As New List(Of System.IO.DirectoryInfo)

If folder.EnumerateFiles().Count = 0 Then

items.Add(folder)

End If

Dim subfolders = folder.EnumerateDirectories()

For Each subfolder In subfolders

items.AddRange(getemptyfolder(subfolder)) '查询树形目录结构类型数据用递归法实现

Next

Return items.ToArray()

End Function

'还是学c#语言吧,我发觉同样一个数组,c#功能多的多,vb.net没几条方法可用。

vb.net 怎么判断一个文件夹或是文本文件的存在?如果没有则创建……求代码!不要VB6.0的

判断和创建可以放在一起。

创建空文件夹:

Directory.CreateDirectory(文件夹完整路径)

'系统会自动判断文件夹是否存在,不存在就创建

判断并创建空文件:

Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)

'你可以用这个FileStream做其它事情  

End Using


本文名称:vb.net比对文件夹,vbnet vb区别
网页URL:http://shouzuofang.com/article/dsechcj.html

其他资讯