ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦C¥X¸ê®Æ§¨ÀɮצWºÙ+®É¶¡

¦^´_ 1# rouber590324

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub ¦C¥X¸ê®Æ§¨ÀɮצWºÙ()
Dim fs, f, fc, f1
Set fs = CreateObject("Scripting.FileSystemObject")
a = Application.InputBox("½Ð¿é¤J¦s©ñ¸ô®|:")
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

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD