重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
脱离具体的环境谈并没有任何意义,所以如果当前电脑上存在此文件就是文件,存在此文件夹则为文件夹,否则什么也不是。
创新互联建站是一家集网站建设,淮上企业网站建设,淮上品牌网站建设,网站定制,淮上网站建设报价,网络营销,网络优化,淮上网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
'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
检查文件是否正在被使用的函数 同意,楼上的 MFC下判断文件夹是否存在,如不存在则创建文件夹 Dir()函数 Delphi怎么判断一个文件存在···
System.Windows.Forms.OpenFileDialog
System.Windows.Forms.SaveFileDialog
System.Windows.Forms.FolderBrowserDialog
以上三个类均能够很好的解决楼主的需求。
具体的请lz自己查msdn
解压密码:1299
假设路径为C:\abc
代码:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc")
Dim FileSize As Long, FileName As String = Nothing
Dim oFileSize As Long
For Each File As String In Files
oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length
If oFileSize FileSize Then
FileSize = oFileSize
FileName = File
End If
Next
Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName))
ListN.SubItems.Add(oFileSize " byte")
ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension " 文件")
ListN.SubItems.Add(FileName)
ListView1.Items.Add(ListN)
End Sub
End Class
详见源代码!!