脱离具体的环境谈并没有任何意义，所以如果当前电脑上存在此文件就是文件，存在此文件夹则为文件夹，否则什么也不是。
肃北网站建设公司成都创新互联公司,肃北网站设计制作，有大型网站制作公司丰富经验。已为肃北超过千家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱，请找那个售后服务好的肃北做网站的公司定做！
'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
'通过过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没几条方法可用。
判断和创建可以放在一起。
创建空文件夹：
Directory.CreateDirectory(文件夹完整路径)
'系统会自动判断文件夹是否存在，不存在就创建
判断并创建空文件：
Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)
'你可以用这个FileStream做其它事情
End Using
