vb.net 编写一个检查文件 文件夹最后更新时间 路径写入txt档 多个检查路径 100
其实已经写好了,就是把检查路径写入txt档案里面不会,网上搜了也看不太懂,刚学vb,求大神教我怎么把路径写入txt档案里面,Load就执行检查的,目前就是这块不会做,co...
其实已经写好了,就是把检查路径写入txt档案里面不会,网上搜了也看不太懂,刚学vb,求大神教我怎么把路径写入txt档案里面,Load就执行检查的,目前就是这块不会做,code下面,没有全部写出来,超字数了,所以只写了重点的部分,教我写把检查路径写txt里面就好了,感谢!
Imports System.IO
Public Class Form1
Dim txtFile = New TXTClass()
Dim objIniFile As String = Application.StartupPath + "\Setting.txt"
Dim sysUtil As New AFSLibrary.SYSClass
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim files() As String = {"E:\8DReport\8D Report.xls"}
Dim dir() As String = {"D:\CMC121\CMC121SIM-SETUP\08", "D:\CMC121\CMC121SIM-SETUP\09", "D:\CMC121\CMC121SIM-SETUP\10"}
For x = 0 To dir.Length - 1
GetAllFile(dir(x))
Next
For y = 0 To files.Length - 1
GetFile(files(y))
If y = files.Length - 1 Then
sysUtil.Writelog("UpdateFiletime", "======文件分析完毕。======" + vbCrLf, True)
End If
Next
MessageBox.Show("遍历信息已经写入log")
End
End Sub 展开
Imports System.IO
Public Class Form1
Dim txtFile = New TXTClass()
Dim objIniFile As String = Application.StartupPath + "\Setting.txt"
Dim sysUtil As New AFSLibrary.SYSClass
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim files() As String = {"E:\8DReport\8D Report.xls"}
Dim dir() As String = {"D:\CMC121\CMC121SIM-SETUP\08", "D:\CMC121\CMC121SIM-SETUP\09", "D:\CMC121\CMC121SIM-SETUP\10"}
For x = 0 To dir.Length - 1
GetAllFile(dir(x))
Next
For y = 0 To files.Length - 1
GetFile(files(y))
If y = files.Length - 1 Then
sysUtil.Writelog("UpdateFiletime", "======文件分析完毕。======" + vbCrLf, True)
End If
Next
MessageBox.Show("遍历信息已经写入log")
End
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询