標題: [發問] 列出資料夾檔案名稱+時間 [打印本頁]

---

作者: rouber590324    時間: 2021-7-29 15:03     標題: 列出資料夾檔案名稱+時間

dear all
圖一可抓取資料夾檔案名稱list
若要同時抓取該檔案存檔時間
該如何修改 煩不另賜較  thankls*10000

圖一
Sub 列出資料夾檔案名稱()
Sheet1.Visible = True
Sheet1.Select
Range("A1").Select
Sheet1.[A1:A65536].ClearContents
path1 = "\\89.80.70.1\exp\abfs_sm_via\jyk158a\*.*"
file1 = Dir(path1): r = 1
Do While file1 <> ""
  'Cells(r, 1) = file1 '檔案名稱+副檔名
  Cells(r, 1) = Split(file1, ".")(0) '僅檔案名稱
  r = r + 1
  file1 = Dir '取得下一個檔名
Loop
Sheet1.Select
Range("A1").Select
End Sub

---

作者: samwang    時間: 2021-7-29 15:48

回復 1# rouber590324

請測試看看，謝謝

Sub 列出資料夾檔案名稱()
Dim fs, f, fc, f1
Set fs = CreateObject("Scripting.FileSystemObject")
a = Application.InputBox("請輸入存放路徑:")
Range("a1").Select
Set f = fs.GetFolder(a)
Set fc = f.Files
[A1:B1000] = ""
For Each f1 In fc
    With ActiveCell
        .Value = Split(f1.Name, ".")(0)
        .Offset(0, 1).Value = f1.DateLastModified
        .Offset(1, 0).Select
    End With
Next f1
Set fs = Nothing: Set f = Nothing: Set fc = Nothing
End Sub

---

作者: rouber590324    時間: 2021-7-29 16:53

dear samwang sir
完全符合需求 thanks*10000

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)