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

[µo°Ý] «ü©w¸ê®Æ§¨«ü©w±ø¥ó§R°£ÀÉ®×°ÝÃD½Ð±Ð

[µo°Ý] «ü©w¸ê®Æ§¨«ü©w±ø¥ó§R°£ÀÉ®×°ÝÃD½Ð±Ð

DEAR  ALL ¤j¤j
1.»Ý¨D¾ã¹y¸ê®Æ®w¤º¤§¦~¥N¤[»·µL¥Î¤§ÀɮקR°£
1.1 ­ì«h¦p¤U
A. ¸ê®Æ§¨¸ô®| :  \\pcbfs02\C701\
B.Àɮ׭קï¤é´Á <= 2010/01/01 «e¤§ ALL ÀɮקR°£
2.½Ð°Ý¦Û°Ê¤Æµ{¦¡¦p¦ó®Ñ¼g ·Ð¤£§[½ç±Ð  THANKS*10000
ù

¦^´_ 1# rouber590324
¸Õ¸Õ¬Ý
¤Þ¥Î¶µ¥Ø Microsoft Scripting Runtime
Sub file_Delete()
Dim myFso As Scripting.FileSystemObject
Dim myFiles As Scripting.Files
Dim myFile As Scripting.File
Set myFso = New Scripting.FileSystemObject
Path = "\\pcbfs02\C701\"   '¸ô®|½Ð¦Û¦æ­×¥¿
Set myFiles = myFso.GetFolder(Path).Files
For Each myFile In myFiles
   If myFile.DateLastModified < "2010/1/1" Then myFile.Delete  '¥HÀɮ׳̫á§ó·s¤é§PÂ_
Next
End Sub

TOP

DEAR  ¤j¤j
°±©ó     myFso As Scripting.FileSystemObject
¨q¥X    ¨Ï¥ÎªÌ¦Û­q«¬ºA©|¥¼³]©w
·Ð¤£§[½ç±Ð    THANKS*10000
ù

TOP

Dim myFiles As Object, xFile As Object
xPath = "\\pcbfs02\C701\"
Set myFiles = CreateObject("Scripting.FileSystemObject").GetFolder(xPath).Files
For Each xFile In myFiles
   If xFile.DateLastModified < CDate("2010/1/1") Then xFile.Delete
Next

TOP

¦^´_ 3# rouber590324

¤Þ¥Î¶µ¥Ø½Ð¼W¥[ Microsoft Scripting Runtime

TOP

DEAR  ­ã¤j /  jcchiang ¤j¤j
  OK   THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD