VB.NET判断一个路径的文件是否存在

使用文件系统操控文件和路径的能力是任何程序的一个重要功能
在本文所介绍的技巧中,我们将检测VB.NET 如何与文件系统进行作用。
通过现有类、方法属性示例给出简便方法完成必须的功能

为了能够操作文件系统,我们需要用到System.IO命名空间。
因此,必须在模块的顶部导入System.IO。我们重点关注FileInfo类,此类允许访问和操作文件系统中的文件
并且允许确定文件属性和DirectoryInfo,而DirectoryInfo类允许访问操作路径和确定属性

判断文件是否存在

下面的代码给出了判断文件是否存在和检查其属性代码
在此示例中,我们定义了sFileName变量保存文件名和地址。
然后新建FileInfo类示例,此类接受完整文件路径作为参数。
接着,使用Exists属性判断文件是否存在。

如果存在文件,则显示文件创建的日期和时间;如果文件不存在,则给出不能定位文件的信息。

Private Function DetermineIfFileExists() As Integer

Dim sFileName As String

sFileName = "C:/text1.txt"

Dim fFile As New FileInfo(sFileName)

If Not fFile.Exists Then

MessageBox.Show("File Not Found")

Else

MessageBox.Show("File Found. File was created on: " & fFile.CreationTime)

End If

End Function

判断路径是否存在

下面的代码给出了判断路径是否存在和检查其属性代码
我们定义了sDirName变量保存名字和路径的地址。
然后新建DirectoryInfo类示例,此类接受全路径名作为参数,接下来使用Exists属性判断路径是否存在。

如果存在,则显示其最近一次被访问的日期和时间;如果不存在,则给出不能定位路径的信息。

Private Function DetermineIfDirectoryExists() As Integer

Dim sDirName As String

sDirName = "C:/temp"

Dim dDir As New DirectoryInfo(sDirName)

If Not dDir.Exists Then

MessageBox.Show("Directory Not Found")

Else

MessageBox.Show("Directory Found. Directory was last accessed on: " & dDir.LastAccesstime)

End If

End Function

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...