VB判断文件及目录的存在性

最新推荐文章于 2021-03-05 17:47:02 发布
最新推荐文章于 2021-03-05 17:47:02 发布
阅读量653 收藏 1
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/miaozk2006/article/details/82416239
版权

方法一：

Function Exists(ByVal FilePath As String) As Boolean
    If Dir(FilePath, 16) <> "" Then Exists = True
 End Function

        方法二：


'========================================
'声明作用：文件存在性判断
'========================================
Private Const OFS_MAXPATHNAME = 128
Private Const OF_EXIST = &H4000

Private Type OFSTRUCT
    cBytes As Byte
    fFixedDisk As Byte
    nErrCode As Integer
    Reserved1 As Integer
    Reserved2 As Integer
    szPathName(OFS_MAXPATHNAME) As Byte
End Type

Private typOfStruct As OFSTRUCT
Private Declare Function apiOpenFile Lib "kernel32" Alias "OpenFile" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

'========================================
'函数名称：Exists
'函数作用：文件、夹存在性判断
'========================================
Public Function Exists(ByVal sFilename As String) As Boolean
    On Error Resume Next
    If Len(sFilename) > 0 Then
        apiOpenFile sFilename, typOfStruct, OF_EXIST
        Exists = typOfStruct.nErrCode <> 2
    End If

摘自：网络整理
相关文章参考：
※利用VB函数Dir()实现递归搜索目录 
※VB获取windows各常用目录的函数（模块）
※怎样用VB获得Windows各类系统目录
※VB判断文件及目录的存在性
※谈vb目录文件操作的三种方法－1
※谈vb目录文件操作的三种方法－2 
※VB 使用SendMessage枚举文件与目录
 
 
 
 
相关 
 文章 
 参考： 
 
 
 
 
   
 
★VB查找替代字符串的函数 
 
 
★VB换行气泡提示类 
 
 
★VB/VBA通用路径选择对话框 
 
 
★ASCII码表0-255完整版 附详细注释 
 
 
★VB的KeyAscii
 
 
★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字） 
 
 
★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）
 
 
★VB如何实现Undo(撤消)功能 
 
 
★VB计算文本文件的行数 
 
 
★VB获取快捷方式原文件路径 
 
 
★微软 Small Basic 简体中文版 已经发布了
 
 
★VB操作Excel 非常详细 [网摘] 
 
 
★VB如何判断文件正被占用/已被打开 
 
 
★VB添加listbox 的水平卷动轴
 
 
★VB打开资源管理器并指定文件
 
 
★VB根据窗体自动调整窗体内控件大小 注：实用，可以直接引用 
 
 
★VB中的指针技术 
 
 
★Visual Basic编程常见问题及解答（1） 
 
 
★Visual Basic编程常见问题及解答（2） 
 
 
★Visual Basic编程常见问题及解答（3） 
 
 
★VisualBasic变量、常数和数据类型及过程概述 
 
 
★VB6的后期绑定和前期绑定
 
 
★VB用户控件制作讲解与实例
 
 
★VB制作OCX控件的步骤 
 
 
★VB中FSO的调用的两种方法 
 
 
★用VB操作EXCEL 
 
 
★VB判断文件及目录的存在性 
 
 
★VB网站（最新、经典源代码、技术文章、基础知识） 
 
 
★VB得到指定文件夹下的文件列表 
 
 
★用VB产生随机任意大小文件挤满硬盘 
 
 
★VB文件的读写操作 
 
 
★VB创建超链接 打开指定网站的几种方法 
 
 
★VB 源码 删除重复行程序 函数 
 
 
★VB 计算自己程序段所用时间
 
 
★VB 获取路径名各部分 （获取文件路径，获取文件名，获取文件扩展名）自编 
 
 
★几行VB代码拿下注册表 
 
 
★VB 在浏览器中打开指定网址 
 
 
★VB窗口置顶 
 
 
★vb在 ListBox 之中点击右键弹出菜单 
 
   
 
 
  


                

        

        

    




    

      

        

            

              
                
                  miaozk2006
                
              
            

            

                关注
              
            

        

        

          
    
            
  • 
              
                
                
                
                
                      0
                
              
              
    点赞
    
            
    • 
            
  • 
              
                
                
                
              
              
    踩
    
            
    • 
            
  • 
              
                
                
                
                
                    1
                
              
              
    
                
    
                  
                    收藏
                  
                
    
              
    
              
    
                
    
                  觉得还不错?
                  
                    一键收藏
                  
                 
                
    
              
    
            
    • 
          
  • 
            
    
              
              
            
    
              
              
              
                    0
              
            
            
    评论
    
          
    • 
          
  • 
          
    • 
          
  • 
            
              
            
              
    
            
              
                
            
    
          
    • 
        

      

      










                



	

		

			

				
					
VB 判断文件是否存在

				
			

			

				

					04-26
				

			

		

		

			
				
VB 判断文件是否存在
VB判断文件是否存在？在输入框内输入一个不存在的文件名，以便更容易查看出程序是否可用，另外除了判断文件存在的功能外，它还可以不进和行错误处理、进行错误处理、集中化错误处理以及模拟一个错误的功能。

			
		

	



                

              
                



	

		

			

				
					
VB 检测文件是否存在

				
			

			

				

					06-07
				

			

		

		

			
				
除了这些基本的文件存在性检查，还可以结合其他VB语句和结构来扩展功能，例如，你可以使用`Try...Catch`异常处理来优雅地处理可能出现的错误，或者在文件不存在时执行特定的操作。例如：  ```vb Try  If Not My....

			
		

	



                


  
              

                


	

		

			

				
					
VB中如何判断文件、文件夹是否存在

				
			

			

				

					changleqy的专栏
				

				

					08-05
					
					1万+
					
				

			

		

		

			
				
在VB中编程中，经常需要判断一个文件是否存在，以便执行相应的操作，这可用下列语句进行判断        Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String    解释： pathname:文件的绝对路径；     Attributes：文件的属性。     “[]”内为可选项。dir(file)=""表示文件不存在，

			
		

	





	

		

			

				
					
VB.Net判断目录或文件是否存在的代码

				
			

			

				

					chinaherolts2008的博客
				

				

					01-11
					
					1960
					
				

			

		

		

			
				
Imports System.IO
    Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Boo_DirExist("F:/dir/") Then
            MsgBox("存在F:/dir/目录")
        Else
            MsgBox(".

			
		

	



		

			
		



	

		

			

				
					
在VB中如何判断文件、文件夹是否存在和生成文件夹

					
热门推荐

				
			

			

				

					钟爱技术
				

				

					04-24
					
					2万+
					
				

			

		

		

			
				
一、在VB编程中，经常需要判断一个文件和文件夹是否存在，以便执行相应的操作，这可以用下列语句进行判断。 


Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) asString 

   解释：PathName:文件或文件夹的绝对路径。 
        Attributes:文件的属性--默认值：vbNormal 

			
		

	





	

		

			

				
					
VB简单文件浏览器.rar

				
			

			

				

					07-10
				

			

		

		

			
				
2. **控件使用**：VB界面设计中，通常会用到`FolderBrowserDialog`控件来让用户选择目录，以及`ListView`控件来显示文件列表。`FolderBrowserDialog`用于打开文件浏览器对话框，让用户选择要浏览的目录；`ListView`...

			
		

	





	

		

			

				
					
VB文件切割分解工具代码

				
			

			

				

					05-07
				

			

		

		

			
				
在VB（Visual Basic）编程环境中，我们可以创建一个实用的小工具，用于执行文件的切割与合并操作。这个"VB文件切割分解工具代码"就是一个这样的实例，它允许用户将大文件分割成多个小文件，以便于存储、传输或者优化...

			
		

	





	

		

			

				
					
VB6.0判断DLL文件是否已经注册 源码

				
			

			

				

					03-14
				

			

		

		

			
				
总结一下，VB6.0中判断DLL文件是否已经注册，主要通过API调用`LoadLibrary`、`GetProcAddress`和`FreeLibrary`来实现。这个过程涉及到对DLL加载、导出函数查找以及资源管理的理解。通过编写这样的代码，开发者可以...

			
		

	





	

		

			

				
					
webform网站，判断当前网站是否存在某个文件

				
			

			

				

					04-18
				

			

		

		

			
				
2. **性能**：频繁的文件存在性检查可能会对服务器性能产生影响，尤其是大量并发请求时。如果可能，可以考虑缓存文件存在的结果，或者在文件结构变化不大时采用更高效的策略。  3. **异常处理**：虽然`File.Exists()...

			
		

	





	

		

			

				
					
VB判断文件是否存在？

				
			

			

				

					05-07
				

			

		

		

			
				
内容索引:VB源码,文件操作,文件　　VB判断文件是否存在？在输入框内输入一个不存在的文件名，以便更容易查看出程序是否可用，另外除了判断文件存在的功能外，它还可以不进和行错误处理、进行错误处理、集中化错误处理以及模拟一个错误的功能。

			
		

	





	

		

			

				
					
VB6 FileExists判断文件是否存在.rar

				
			

			

				

					07-10
				

			

		

		

			
				
VB6 判断文件是否存在，使用VB内置的函数FileExists来实现，可以说实现方法简单，直接调用函数（文件路径）即可，至于返回的结果，这里有两种形式，一种是以MsgBox的方式弹出窗口告之，另一种是返回布尔值，True或False，然后再进行相关处理。关于FileExists用法，有以下代码供参考：
　　Dim B As Boolean
　　B = FileExists(Me.Txt_Path.Text)
　　If B Then
　　    MsgBox "文件存在"
　　Else
　　    MsgBox "文件不存在"
　　End If
　　以上代码段封装在按钮事件中，用户单击按钮后，执行本段代码，判断指定的文件是否存在。

			
		

	





	

		

			

				
					
判断文件（文件夹）是否存在

				
			

			

				

					12-15
				

			

		

		

			
				
这是使用excel的vba来做的
判断文件/文件夹的存在与否应该来讲没有什么难度的
不过个人觉得这个判断在一些文件的处理当中应该是会比较有用的

			
		

	





	

		

			

				
					
vb中检测文件是否存在

				
			

			

				

					wjb9921的专栏
				

				

					04-22
					
					4151
					
				

			

		

		

			
				
1。利用DIR      If dir(fname)="" then 文件不存在 字串3 2。利用 api在某些场合，我们需要确定特定目录下特定文件是否存在。VB自带的DIR函数可以查找符合条件的文件。这里介绍一种较为简单的方法。 API函数的 SHFileExists 的功能，从其名字来看，应该是 Search File Exists，亦即查找存在的文件。用它来检测文件存在与否是很

			
		

	





	

		

			

				
					
vb 代码检查文件是否存在

				
			

			

				

					nongcunqq的博客
				

				

					03-05
					
					751
					
				

			

		

		

			
				
If My.Computer.FileSystem.FileExists("c:\Check.txt") Then
    MsgBox("File found.")
Else
    MsgBox("File not found.")
End If

参考
https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.fileio.filesystem.fileexists?view=net-5.0



			
		

	





	

		

			

				
					
vba 判断文件夹是否存在

				
			

			

				

					shuye_gen的博客
				

				

					04-24
					
					2621
					
				

			

		

		

			
				
'path：1、D:\vba 2、D:\vba\ 两种格式都可以

'如果路径存在，外层if结束

'如果路径path是D:\vba\1.txt，程序会认为路径下不存在该文件夹，则创建新的文件夹，

'而如果1.txt这个文本文件在该目录下存在，报错，errorNumber>0，程序结束。

If Not CreateObject("Scripting.FileSystemObject")...

			
		

	





	

		

			

				
					
exists的用法

				
			

			

				

					a154832918的专栏
				

				

					04-11
					
					537
					
				

			

		

		

			
				
下面来分析为什么用用not exists 代替not in 

有两个简单例子，以说明 “exists”和“in”的效率问题 

    1) select * from t1 where exists(select 1 from t2 where t1.a=t2.a) ; 

    t1数据量小而t2数据量非常大时，t1

    2) select * from t1 whe

			
		

	





	

		

			

				
					
用自定义函数判断指定文件夹下是否包含子文件夹

				
			

			

				

					Paladin.Lao的VSTO/VBA专栏
				

				

					02-03
					
					762
					
				

			

		

		

			
				
Function CheckFolder(sPath As String) As Boolean    If Right(sPath, 1) <> "/" Then sPath = sPath & "/"    Dim sDir As String    sDir = Dir(sPath & "*.*", vbDirectory)    While sDir <> ""    

			
		

	





	

		

			

				
					
Crypto_30_vHsm_Types.h

					
最新发布

				
			

			

				

					07-09
				

			

		

		

			
				
Crypto_30_vHsm_Types

			
		

	





	

		

			

				
					
VB.NET 判断文件是否存在

				
			

			

				

					09-19
				

			

		

		

			
				
### 回答1：
在 VB.NET 中，可以使用 File.Exists 方法来判断文件是否存在。

例子:

```
If File.Exists("C:\example.txt") Then
    Console.WriteLine("文件存在")
Else
    Console.WriteLine("文件不存在")
End If
```  

### 回答2：
在VB.NET中，我们可以使用`My.Computer.FileSystem.FileExists`方法来判断文件是否存在。该方法接受一个文件路径作为参数，并返回一个布尔值表示文件是否存在。

下面是一个示例代码：

```vb
Dim filePath As String = "C:\path\to\file.txt"

If My.Computer.FileSystem.FileExists(filePath) Then
    Console.WriteLine("文件存在")
Else
    Console.WriteLine("文件不存在")
End If
```

在上面的代码中，我们先定义了一个文件路径`filePath`，然后使用`My.Computer.FileSystem.FileExists`方法来判断该文件是否存在。如果文件存在，就输出"文件存在"，否则输出"文件不存在"。

注意，`My.Computer.FileSystem.FileExists`方法只能判断本地文件是否存在，无法判断网络路径。如果需要判断网络路径是否存在，可以使用另外的方法，比如尝试访问该路径或使用第三方库。  

### 回答3：
在VB.NET中，我们可以使用File类中的Exists方法来判断文件是否存在。Exists方法接受一个文件路径作为参数，并返回一个布尔值，表示文件是否存在。

下面是一个示例代码，演示如何使用VB.NET判断文件是否存在：

```vb
Imports System.IO

Module Module1
    Sub Main()
        Dim filePath As String = "C:\Example\File.txt" '文件路径

        If File.Exists(filePath) Then
            Console.WriteLine("文件存在")
        Else
            Console.WriteLine("文件不存在")
        End If

        Console.ReadLine()
    End Sub
End Module
```

在这个示例中，我们首先定义了一个文件路径（filePath），然后使用File.Exists方法判断该文件是否存在。如果文件存在，则输出"文件存在"；如果文件不存在，则输出"文件不存在"。

需要注意的是，使用File类还需要在程序中导入System.IO命名空间。可以在代码文件的开头使用Imports语句导入该命名空间，以便在后续的代码中使用File类。

这就是使用VB.NET判断文件是否存在的方法。

			
		

	



              



  
“相关推荐”对你有帮助么？

  

      
    
          
  • 
              
    
                  
                  
              
    
              
    非常没帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    没帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    一般
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    有帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    非常有帮助
    
          
    • 
      

      

      

          
          提交
      

      

  




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值