百度空间 | 百度首页 
               
 
查看文章
 
把自己写的一个Au3源码公布出来
2007年08月22日 星期三 05:34
功能是指定删除文件,并且可以指定路径下的排出删除。主要是想供给所有想了解Au3的朋友!不想用的请不要使用。用什么用处自己理解,直接存为del.au3就可以运行,也可以编译成exe来使用。

#include <GUIConstants.au3>
Opt("TrayIconHide", 1)
Dim $del
$del=iniread(@ScriptDir& "\\" &"del.ini","设置","指定删除","")
$del=StringSplit($del, ",")
for $i = 1 to $del[0]
FileDelete(""& $del[$i] &"")
DirRemove(""& $del[$i] &"", 1)
Next
$paidel=iniread(@ScriptDir& "\\" &"del.ini","设置","排出删除","")
$disk=iniread(@ScriptDir& "\\" &"del.ini","设置","排出删除路径","")
$tes = \'.,..,System Volume Information,Recycler,\'
$temp = ""& $tes & $paidel &""
$search = FileFindFirstFile($disk & "*.*")
While 1
      $file = FileFindNextFile($search)     
      If @error Then ExitLoop
      $result = StringInStr($temp, $file)
      if $result < 1 Then
      FileDelete($disk & $file)
      DirRemove($disk & $file, 1)
      endif
WEnd
FileClose($search)
exit






del.ini内容如下:

[设置]
排出删除路径="F:\\"
排出删除="123,222,传奇"
指定删除="F:\\传奇\\mir.exe,E:\\123.txt"


类别:au3学习 | 添加到搜藏 | 浏览() | 评论 (0)
 
最近读者:
 
网友评论:
发表评论:
姓 名:
网址或邮箱: (选填)
内 容:
验证码: 请点击后输入四位验证码,字母不区分大小写
      

     

©2009 Baidu