| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 547 人关注过本帖
标题:求助,如何关闭此提示
只看楼主 加入收藏
JHKCHEN
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2011-5-31
结帖率:10%
收藏
 问题点数:0 回复次数:5 
求助,如何关闭此提示
程序中有delete file d:\*.*
系统总提示:确定要删除d:\所有文件吗?
我不需要此提示,如何编写程序
搜索更多相关主题的帖子: 编写程序 如何 file 
2011-06-14 20:27
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:0 
加set safe off试试

★★★★★为人民服务★★★★★
2011-06-14 21:14
JHKCHEN
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2011-5-31
收藏
得分:0 
没有用
2011-06-15 09:16
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:0 
set safe off
ERASE *.*
2011-06-15 10:36
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
那是使用了messagebox()函数的过程,无法消除的,不要用这个命令,自己写函数替代它。用adir()读入文件清单,逐个删除,可以静悄悄地毫无声息。

授人以渔,不授人以鱼。
2011-06-22 23:03
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
初到論壇,作為索取資料的報答,貢獻一段適合你用的程序代碼(在VFP 9.0 SP2中調試通過):

程序代码:

*--------------------------------
* 批量刪除文件
* 參數:cDirectory    -- 文件所在目錄字符串(無需用\號結尾)
*       cFileSkeleton -- 文件通配符
* 返回:操作成功返回.T.否則爲.F.
*--------------------------------
FUNCTION Delete_All_File(cDirectory AS Character, cFileSkeleton AS Character) AS Boolean 
    
    IF EMPTY(cDirectory)
        *-----------------------
        * 如果沒有傳入cDirectory參數則使用由SET DEFAULT TO指定的默認目錄
        *-----------------------
        cDirectory = SET("Default")
    ENDIF 
    cDirectory = ADDBS(cDirectory)        && 在末尾添加反斜線
    
    IF EMPTY(cFileSkeleton)
        *-----------------------
        * 如果沒有傳入cFileSkeleton參數則默認爲*.*
        *-----------------------
        cFileSkeleton = "*.*"
    ENDIF 
    
    LOCAL aFiles[1,5]
    IF ADIR(aFiles, cDirectory + cFileSkeleton) > 0
        LOCAL nIndex AS Integer, cFile AS Character
        FOR nIndex = 1 TO ALEN(aFiles,1)
            cFile = cDirectory + aFiles[nIndex,1]
            DELETE FILE "&cFile"        && 爲確保能夠刪除帶空格之類長文件名的文件,用雙引號把文件名括起來
        NEXT 
        RETURN .T.
    ELSE 
        *----------------------
        * 沒有文件
        *----------------------
        RETURN .F.
    ENDIF 
    
ENDFUNC 



注:DELETE FILE 命令不受 SET SAFETY 開關影響

授人以渔,不授人以鱼。
2011-06-23 00:51
快速回复:求助,如何关闭此提示
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047173 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved