首先我们得判断文件/目录是否存在然后获取文件信息(创建时间)。有文件的获取时间了,就可以知道这个文件的创建时间,就能判断目录的文件是什么时候增加的,那么离自己最近的时间创建的的文件就是目录的增加文件了。
十多年的宝兴网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都全网营销的优势是能够根据用户设备显示端的尺寸不同,自动调整宝兴建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“宝兴网站设计”,“宝兴网站推广”以来,每个客户项目都认真落实执行。
判断文件/目录是否存在
Try ' 先判断文件是否存在。 If Not File.Exists(TextBox4.Text) Then
File.CreateText(TextBox4.Text) '单纯创建文件一般不常用,正常情况下是创建文件然后进行读写操作
'System.IO.File.Create(TextBox4.Text) End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
获取文件信息(创建时间) FileDateTime(fii(i).FullName) File.GetCreationTime(path)
System.IO.File.Create(Path)'创建文件
System.IO.File.CreateText(Path)'创建文件
System.IO.File.Copy(Path,targetPath) '复制到新位置,不允许覆盖现有文件 也可以'FileCopy(TextBox4.Text, "C:" "\" file_name(UBound(file_name))) System.IO.File.Move(SourceFileName, DestFileName)
System.IO.File.Delete(Path)
'追加 System.IO.File.AppendText'替换
System.IO.File.Replace
Sub Excel()
Const FilePath As String = "C:\1.xls" '文件名
Dim ExApp As Object = CreateObject("Excel.Application")
ExApp.Visible = True
If Not IO.File.Exists(FilePath) Then
ExApp.Workbooks.Add()
ExApp.ActiveWorkbook.SaveAs(FilePath)
Else
ExApp.Workbooks.Open(FilePath)
End If
Dim Wk As Object = ExApp.ActiveWorkbook
Dim iRow As Integer = Wk.ActiveSheet.Range("A65535").End(3).Row + 1
'添加需要的代码
Wk.ActiveSheet.Cells(iRow, 1).Value = "xxxxx"
ExApp = Nothing
Wk = Nothing
End Sub
Imports Microsoft.VisualBasic.FileSystem '在声明区加这句,这包含vb6的一些文件读写功能
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim p As Integer = FreeFile()
Static index As Integer = 0
FileOpen(p, "D:\list.csv", OpenMode.Append)
index += 1
WriteLine(p, "姓名" index, "年龄" index, "职业" index, "住址" index)
FileClose(p)
End Sub
' FileIO.TextFieldParser 类可以读取csv文件,或者数据库有关类也可以读取