如題 在一個檔案夾內有好幾個文本檔案，怎樣獲取修改時間最晚的那個檔案的檔案名放入變數A 求大神給個代碼 跪謝～～
uj5u.com熱心網友回復：
Dim files = My.Computer.FileSystem.GetFiles("D:\temp\", FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
Dim lastFI As FileInfo = Nothing
For Each s As String In files
Dim FI As FileInfo = My.Computer.FileSystem.GetFileInfo(s)
If (lastFI Is Nothing) OrElse (FI.LastWriteTime > lastFI.LastWriteTime) Then
lastFI = FI
End If
Next
Debug.Print("{0} {1}", lastFI.FullName, lastFI.LastWriteTime)
A = lastFI.FullName
uj5u.com熱心網友回復：
Shell "cmd /c dir /o-d /a-d /b d:\temp\*.* >d:\files.txt",vbHide
'讀檔案d:\files.txt第一行的內容即所需
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/82875.html
標籤：VB基礎類
上一篇：用xmlhttp登錄7k7k并用動態WebBrowser驗證登錄結果
下一篇：求助各位大神教教本小白！！！