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

§R°£¸ê®Æ§¨¤ºªºÀÉ®×

§R°£¸ê®Æ§¨¤ºªºÀÉ®×

½Ð±Ð¦U¦ì¦Ñ®v­Ì¡A¦p¦ó¥HvbsÀÉ¡A»s§@¥X§R°£d:\¤º (¯S©wªº¸ê®Æ§¨¸ÌÀY©Ò¦³ªºÀÉ®×)¡A½Ð¦Ñ®v­Ì«ü±Ð¡AÁÂÁÂ!

Dim fso
Set fso = CreateObject("scripting.filesystemobject")
fso.DeleteFile "D:\aa\*"

TOP

©ñ¦bvba¤¤¤@¼Ë³q¥Î

TOP

¦^´_ 1# man65boy
Kill "d:\*.xls"
Ps : Kill ¨Ó§R°£¤@­Ó¤w¶}±ÒªºÀɮסA«h·|²£¥Í¿ù»~

TOP

¦^´_ 2# oobird


    ·PÁÂoobird¤j¤jªº¸ÑÃD¡A¦¨¥\¤F!
¤]ÁÂÁÂGBKEE¤j¤jªº«Ø¨¥¡A¤p§Ì·|ª`·N¡A·PÁ¡C

TOP

¦^´_  man65boy
Kill "d:\*.xls"
Ps : Kill ¨Ó§R°£¤@­Ó¤w¶}±ÒªºÀɮסA«h·|²£¥Í¿ù»~
GBKEE µoªí©ó 2012-6-14 06:23



    ¦L¶H¤¤vbs¦n¹³¤£¤ä«ùkill~ÁÙ¬O§Ú°O¿ù¤F¡H

TOP

¦^´_ 6# oobird
2003ª©¬O¥i¥Hªº,¨ä¥Lª©§Ú¤£ª¾¹D .

TOP

¦^´_ 4# GBKEE

¤j¤j¦n:
­n§R°£D:ºÏ¼Ñ¸Ì­±ªº"½m²ß-1"¡B"½m²ß-2"¡B"½m²ß-3".....
©ÎªÌ¬OC:ºÏ¼Ñ¸Ì­±ªº"½m²ß-1"¡B"½m²ß-2"¡B"½m²ß-3".....   

±ø¥ó¬Oª¾¹DÀɮתº«e­±¦WºÙ¡A«á­±§Ç¸¹«o«Ü¦h­Ó¡A¦Ó¥B¤]§Ñ°O¦s©ñ¦b­þ­Ó¸ê®Æ§¨
¥u·Q§â¹q¸£¸Ì­±©Ò¦³ÀɦW¬°"½m²ß" or "½m²ß-1"µ¥§Ç¸¹¥þ³¡§R°£
ÀÉ®×Ãþ«¬³£¬OExcel¡BWord¥i¥H¤À§O¶i¦æ§R°£¶Ü?
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¦^´_ 8# linsurvey2005
¤p¤ß¨Ï¥Î, ¥i§R°£¤@¯ë¸ê®Æ§¨¤¤©Ò«ü©wªºÀɦW.
  1. Option Explicit
  2. Dim xlDelName As String
  3. Dim xF As Object
  4. Sub Ex()
  5.     Dim FS As Object, d As Object, e As Object
  6.     xlDelName = "\*½m²ß*"
  7.     On Error GoTo rr   '2003 ÁcÅ餤:¦p¥Ø¿ý¦³Â²Åé¦r·|¦³¿ù»~
  8.     For Each d In CreateObject("Scripting.FileSystemObject").Drives  'ºÏºÐ¾÷
  9.         If d.IsReady Then  'ºÏºÐ¾÷¤w·Ç³Æ¦n
  10.             Set FS = CreateObject("Scripting.FileSystemObject").GetFolder(d.Path) '¥D¥Ø¿ý
  11.             If Dir(FS.Path & xlDelName) <> "" Then Kill FS.Path & xlDelName
  12.             For Each e In FS.SubFolders
  13.                 If e.Attributes = 16 Then ¤l¥Ø¿ý e.Path
  14.                 'e.Attributes = 16 => ¤@¯ë¸ê®Æ§¨
  15.             Next
  16.         End If
  17.     Next
  18.     MsgBox "§R°£§¹²¦"
  19.     Exit Sub
  20. rr:
  21. MsgBox xF.Path, , "¸ê®Æ§¨¬°Â²Åé¦r"
  22. End Sub
  23. Sub ¤l¥Ø¿ý(xlfolder As String)  '¤l¥Ø¿ý
  24.     Dim e
  25.     Set xF = CreateObject("Scripting.FileSystemObject").GetFolder(xlfolder)
  26.     If Dir(xF.Path & xlDelName) <> "" Then Kill xF.Path & xlDelName
  27.     For Each e In xF.SubFolders
  28.         If e.Attributes = 16 Then ¤l¥Ø¿ý e.Path
  29.     Next
  30. End Sub
½Æ»s¥N½X

TOP

¦^´_  linsurvey2005
¤p¤ß¨Ï¥Î, ¥i§R°£¤@¯ë¸ê®Æ§¨¤¤©Ò«ü©wªºÀɦW.
GBKEE µoªí©ó 2012-10-25 14:22



   
½Ð°Ý ³o­Ó¦³¿ìªk¥ý³Æ¥÷«á ¦b°Ê§@¶Ü??
¦p d ¼Ñ¤º°õ¦æ¦¹«ü¥O ¦ý¥ý±N¸ê®Æcopy ¨ìc¼Ñ..

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD