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

rouber590324

dear all
¹Ï¤@¥i§ì¨ú¸ê®Æ§¨ÀɮצWºÙlist
­Y­n¦P®É§ì¨ú¸ÓÀɮצsÀɮɶ¡
¸Ó¦p¦ó­×§ï ·Ð¤£¥t½ç¸û  thankls*10000

¹Ï¤@
Sub ¦C¥X¸ê®Æ§¨ÀɮצWºÙ()
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 'ÀɮצWºÙ+°ÆÀɦW
  Cells(r, 1) = Split(file1, ".")(0) '¶ÈÀɮצWºÙ
  r = r + 1
  file1 = Dir '¨ú±o¤U¤@­ÓÀɦW
Loop
Sheet1.Select
Range("A1").Select
End Sub

rouber590324

dear samwang sir
§¹¥þ²Å¦X»Ý¨D thanks*10000

samwang

¦^´_ 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