- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¥»©«³Ì«á¥Ñ kimbal ©ó 2012-1-5 00:21 ½s¿è
...§A»¡ªºÀ³¸Ó¬OFILESYSTEMOBJECT
¥H¤U¬O§RÀɪº:
object.DeleteFile "filename", force
force¬Otrueªº¸Ü, ÀÉ®×°ßŪ®É¤]¥idelete
dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\somefile.txt") Then
filesys.DeleteFile "c:\somefile.txt",TRUE
End If
½s¿è: ¬Ýº|¤FÃD¥Ø,¬O®ÉԺΤF
¥H¤U¬O§R¤å¥ó§¨ªº:
FORCE¬OTRUEªº¸Ü,¤å¥ó§¨¦³ªF¦è³£·|DELETE
Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("c:\FOLDER\") Then
filesys.DeleteFolder "c:\FOLDER", True
End If |
|