不多说，上代码
.版本 2
.支持库 xplib
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
XP风格 (2)
.子程序 _按钮游戏目录_被单击
编辑框1.内容 ＝ 浏览文件夹 (“请选择游戏所在的文件夹”, )
.如果 (编辑框1.内容 ＝ “”)
返回 ()
.否则
.如果结束
.如果 (取文本长度 (编辑框1.内容) ≠ 倒找文本 (编辑框1.内容, “\”, , 假)) ' 一般打开的路径后面没有“\”，要添加“\”
编辑框1.内容 ＝ 编辑框1.内容 ＋ “\”
.否则
.如果结束
.子程序 _按钮删除_被单击
.如果 (寻找文件 (编辑框1.内容 ＋ “addons”, #子目录) ≠ “”) ' 查找addons文件夹是否存在
.如果 (删除目录 (编辑框1.内容 ＋ “addons”) ＝ 真) ' 删除addons,并返回结果
信息框 (“删除成功！”, 0, “提示”)
.否则
信息框 (“删除失败！”, 0, “提示”)
.如果结束
.否则
信息框 (“请确认是否选择了游戏目录！”, 0, “提示！”) ' 所选目录无addons文件夹，返回提示
绝对原创！
.版本 2
.支持库 xplib
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
XP风格 (2)
.子程序 _按钮游戏目录_被单击
编辑框1.内容 ＝ 浏览文件夹 (“请选择游戏所在的文件夹”, )
.如果 (编辑框1.内容 ＝ “”)
返回 ()
.否则
.如果结束
.如果 (取文本长度 (编辑框1.内容) ≠ 倒找文本 (编辑框1.内容, “\”, , 假)) ' 一般打开的路径后面没有“\”，要添加“\”
编辑框1.内容 ＝ 编辑框1.内容 ＋ “\”
.否则
.如果结束
.子程序 _按钮删除_被单击
.如果 (寻找文件 (编辑框1.内容 ＋ “addons”, #子目录) ≠ “”) ' 查找addons文件夹是否存在
.如果 (删除目录 (编辑框1.内容 ＋ “addons”) ＝ 真) ' 删除addons,并返回结果
信息框 (“删除成功！”, 0, “提示”)
.否则
信息框 (“删除失败！”, 0, “提示”)
.如果结束
.否则
信息框 (“请确认是否选择了游戏目录！”, 0, “提示！”) ' 所选目录无addons文件夹，返回提示
绝对原创！
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-08-31
.版本 2
删除目录 ()
调用格式： 〈逻辑型〉 删除目录 （文本型 欲删除的目录名称） - 系统核心支持库->磁盘操作
英文名称：RmDir
删除一个存在的目录及其中的所有子目录和下属文件，请务必谨慎使用本命令。成功返回真，失败返回假。本命令为初级命令。
参数<1>的名称为“欲删除的目录名称”，类型为“文本型（text）”。该目录应实际存在，如果目录中存在文件或子目录，将被一并删除，因此使用本命令请千万慎重。
操作系统需求： Windows、Linux追问
删除目录 ()
调用格式： 〈逻辑型〉 删除目录 （文本型 欲删除的目录名称） - 系统核心支持库->磁盘操作
英文名称：RmDir
删除一个存在的目录及其中的所有子目录和下属文件，请务必谨慎使用本命令。成功返回真，失败返回假。本命令为初级命令。
参数<1>的名称为“欲删除的目录名称”，类型为“文本型（text）”。该目录应实际存在，如果目录中存在文件或子目录，将被一并删除，因此使用本命令请千万慎重。
操作系统需求： Windows、Linux追问
能举个例子吗?或者加QQ 24095681 教教我,
追答把你要删的 目录写进去 就可以了啊
还有一个 命令 是 删除文件 也是一样 把 你要删的 文件 写进去 就可以了
删除目录 (“E:\地下城与勇士”)
之所以要先确认目录,是因为这个软件我要共享啊,总不可能每个人的游戏路径都一样把
所以我先确定路径
然后 删除按钮如何 预读 这个确认好的路径,然后执行删除这个路径下的某个文件
能具体教教吗
目录 还要我教你啊 弄个通用对话框 选择 就可以了
相似回答