如何用vb判断文件夹是否存在

API函数 PathFileExists

创新互联建站主要从事网站建设、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务新华,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

声明

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

PathFileExists("一个文件或文件夹") 如果存在 返回1 不存在返回0

If PathFileExists("C:\123") then ...

Dir不准确

如果有下列目录结构

D盘中有文件夹 test 文件夹中有testFile.txt文件

还有空文件夹 testEmpty

则

Dir("d:\test\testFIie.txt") 返回 testFile.txt

Dir("d:\test\testFIie11111111.txt") 返回 ""

Dir("d:\test\") 返回 testFile.txt (返回此文件夹第一个文件)

Dir("d:\testEmpty") 返回空

dir("一个不存在的文件夹")返回空

也就是说如果一个文件夹下没有文件（不管有没有子文件夹）则 dir("一个文件夹")就返回空

所以不能通过 dir("一个文件夹")来判断一个文件夹是否存在。

只能调用api函数

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

PathFileExists("一个文件或文件夹") 如果存在 返回1 不存在返回0

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

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

创建空文件夹：

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

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

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

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

End Using

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操作excel时,如何判断单元格内容为空

vb.NET有时很怪，不同版本，或者不同机器，在操作excel时，判断单元格是否为空时，会出现不同的错误提示。

大多数情况，xlSheet.Cells(1, 1)="" 就可以判断这个单元是否有内容。

但是有时也会有不同的提示。总结不同机器，不同版本，用下面几种来试试单元格是否是空白。

xlSheet.Cells(1, 1)=""

xlSheet.Cells(1, 1).value=""

xlSheet.Cells(1, 1).value.tostring=""

如果上面三个代码都会自动提示错误，请用下面终极模式：）

xlSheet.Cells(1, 1).value = Nothing

VB.NET 创建文件夹

用Directory.CreateDirectory即可创建文件夹：

' 建立目录

If Not Directory.Exists("C:\负屃\"  TextBox1.Text) Then '检查文件夹是否存在

Directory.CreateDirectory("C:\负屃\"  TextBox1.Text)  '不存在，创建文件建夹

End If

你的例子是因为少了一个"\"引起的，正确的如下：

Dim fsotest As New FileSystemObject

If fsotest.FileExists("C:\负屃\"  TextBox1.Text) = False Then

fsotest.CreateFolder("C:\负屃\"  TextBox1.Text) '这里你少了一个\

End If

MsgBox("创建成功")

vb.net 空引用异常？求助

PDA.UI.PubLib.CEDBLayer()

问题可能在这里面有的组件没有引用进来，就是对象有问题，PDA可能就是空的

分享标题：包含vb.net目录不是空的词条
文章地址：http://myzitong.com/article/hopejs.html