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
判断和创建可以放在一起。
创建空文件夹：
Directory.CreateDirectory(文件夹完整路径)
'系统会自动判断文件夹是否存在，不存在就创建判断并创建空文件：
Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)
'你可以用这个FileStream做其它事情
End Using
'通过过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时，判断单元格是否为空时，会出现不同的错误提示。
大多数情况，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
用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("创建成功")
PDA.UI.PubLib.CEDBLayer()
问题可能在这里面有的组件没有引用进来，就是对象有问题，PDA可能就是空的