vb点虐 判断文件夹 vb判断文件大小

vb点虐 如何判断路径是文件还是文件夹

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

创新互联公司2013年开创至今，是专业互联网技术服务公司，拥有项目成都做网站、成都网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元永善做网站,已为上家服务,为永善各地企业和个人服务,联系电话:18980820575

'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

vbnet如何判断目录下增加了文件

首先我们得判断文件/目录是否存在然后获取文件信息（创建时间）。有文件的获取时间了，就可以知道这个文件的创建时间，就能判断目录的文件是什么时候增加的，那么离自己最近的时间创建的的文件就是目录的增加文件了。

判断文件/目录是否存在

Try            ' 先判断文件是否存在。            If Not File.Exists(TextBox4.Text) Then

File.CreateText(TextBox4.Text) '单纯创建文件一般不常用，正常情况下是创建文件然后进行读写操作

'System.IO.File.Create(TextBox4.Text)            End If

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

获取文件信息（创建时间） FileDateTime(fii(i).FullName)     File.GetCreationTime(path)

System.IO.File.Create(Path)'创建文件

System.IO.File.CreateText(Path)'创建文件

System.IO.File.Copy(Path,targetPath)      '复制到新位置,不允许覆盖现有文件        也可以'FileCopy(TextBox4.Text, "C:" "\" file_name(UBound(file_name))) System.IO.File.Move(SourceFileName, DestFileName)

System.IO.File.Delete(Path)

'追加 System.IO.File.AppendText'替换

System.IO.File.Replace

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

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

创建空文件夹：

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

'系统会自动判断文件夹是否存在，不存在就创建判断并创建空文件：

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

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

End Using

vb点虐 ，一文件夹下存在若干子文件夹，如何判断哪些子文件夹为空（子文

'通过过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点虐 没几条方法可用。