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

¨Ï¥ÎªÌ¦Û­q§ÎºA©|¥¼©w¸q

¨Ï¥ÎªÌ¦Û­q§ÎºA©|¥¼©w¸q

¥H«e¥Ñ¨ä¥L¸ê·½¨ú±oªºÀɮסA¬ã¨s»yªk¤¤
¦ý½Æ»s¬ÛÃöª«¥ó»P¥Ø¿ý¡A«o»P­ì©lÀÉ°õ¦æ®t²§
´£¥Ü¿ù»~: ¨Ï¥ÎªÌ¦Û­q§ÎºA©|¥¼©w¸q
¸¨¦b³o¨âªÌ
Public fso As New Scripting.FileSystemObject
Public sfolder As Folder

¹ï¨äÁôÂîɰõ¦æµ²ªG¬°¤l¥Ø¿ý¥¼¤Þ¥ÎµLªk§e²{

½Æ»s¶×¥XÀÉ
¸ê®Æ§¨¸ê®Æ¬d¸ß.rar (86.1 KB)
­ì©lÀɺë²
¹q¸£¤å¥óÀɦWºÞ²z¨t²Î ¾ã²z.rar (727.35 KB)

³Â·Ð¥ý¶i«ü¾ÉÅo

¦^´_ 1# Happkkevin
¦bVba ¤u¨ã->³]©w¤Þ¥Î¶µ¥Ø ¥[¤J Microsoft Scripting Runtime
¦p¹Ï

EX1.GIF
2011-7-13 08:43

TOP

·PÁª©¤jªºÀ°§U¡A³o°ÝÃD¸Ñ¨M¤F
·Q¾ã²z³o­ÓÀɮײŦX¦Û¤v»Ý¨D
¦bÀɮצCªí¤¤¡A¥H¤U»yªk¦C¥X¤FÀÉ®×µ¥»Ý­n®æ¦¡
¬O§_¥i·s¼WÄæ¦ì      
    ¥H    .Cells(i, 16) = f.¡iÅã¥Ü§@ªÌ¡j
             .Cells(i, 17) = f.¡iÅã¥Ü¼ÐÃD¡j
»yªk¼W¥[ §@ªÌ»P¼ÐÃD¸ê®Æ
       .Cells(i, 11).Select
        ActiveSheet.Hyperlinks.add anchor:=Selection, Address:=spath & sFileName, _
                    TextToDisplay:=sFileName
        .Cells(i, 12) = Int(FileLen(spath & sFileName) / 1024) & " kb"
        .Cells(i, 13) = VBA.Right(Cells(i, 11), 3)
        Set f = fs.GetFile(spath & sFileName) 'ªð¦^«ü©w¸ô®|¤å¥ó©Ò¹ïÀ³ªº File ¹ï¶H
        .Cells(i, 14) = f.DateCreated
        .Cells(i, 15) = f.DateLastModified

TOP

µLªk¤U¸üÀɮסA¥i¯à¬OÅv­­¤£¨¬§a¡I
¤£µM¡A¥i¥HÀ°§A¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD