以下是引用TonyDeng在2012-2-11 19:52:10的发言:
SET DEFAULT TO "c:\My Documents\Visual FoxPro Projects\test"
CLEAR ALL
CLEAR
DelDir("aaa", .F.)
CLEAR ALL
RETURN
*---------------------
* 參數:tcDir -- 當前默認路徑下的文件夾名,也可以用絕對路徑
* tlQuestion -- 是否需要確認,默認為要
*---------------------
PROCEDURE DelDir(tcDir, tlQuestion)
IF (PCOUNT() < 2) .OR. (VARTYPE(tlQuestion) != "L")
tlQuestion = .T.
ENDIF
IF tlQuestion .AND. (MESSAGEBOX("您确认删除文件夹" + tcDir + "中的一切内容吗?", 32 + 4 + 256) != 6)
RETURN
ENDIF
STRTOFILE("RD &tcDir /S /Q", "DELDIR.BAT")
RUN /N7 DELDIR.BAT
ENDPROC
测试了一下,没提示的。效果很好