求大神帮我写个遍历文件夹内的文件并且遍历的文件上传

王小点

求大神帮我写个遍历文件夹内的文件并且遍历的文件上传。

桌面的文件夹内。有很多文件，。 我需要遍历的是表格文件。如.XLSX .XLS。
例子：
C:\Users\Administrator\Desktop\新建文件夹\

只取俩个文件，上传到我的另一台局域网电脑就行了。 服务端与客户Duan我都用易语言自带的 服务器数据组件了  的我用不用写了。 但是如何遍历出这俩文件后，在上传希望写个例子。

a45167039

.版本 2

客户3.连接 (“192.168.2.7”, 19730)
客户3.发送数据 (读入文件 (“D:\HHXSPXEServer带PE20240913\HHXSPXEServerX64.exe”))


补充内容 (2025-9-29 00:31):
.版本 2

.子程序 _服务器1_数据到达


写到文件 (“d:\1.exe”, 服务器1.取回数据 ())

wangchen

  

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

变量名	类 型	静态	数组	备 注
文件	文本型
目录	文本型
texe	文本型
New	文本型

目录 ＝ “你自己设置”
文件 ＝ 寻找文件 (目录 ＋ “*.*”, )
判断循环首 (文件 ≠ “”)
texe ＝ 目录 ＋ 文件
temp ＝ 分割文本 (texe, "\", )
New ＝ temp [取数组成员数 (temp)]
如果真 (寻找文本 (New, “xl”, , 假) ≠ -1)  ' map
' 上传（）
文件 ＝ 寻找文件 (, )
判断循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件, 文本型<br /> .局部变量 目录, 文本型<br /> .局部变量 texe, 文本型<br /> .局部变量 New, 文本型<br /> <br /> 目录 ＝ “你自己设置”<br /> 文件 ＝ 寻找文件 (目录 ＋ “*.*”, )<br /> .判断循环首 (文件 ≠ “”)<br />     texe ＝ 目录 ＋ 文件<br />     temp ＝ 分割文本 (texe, "\", )<br />     New ＝ temp [取数组成员数 (temp)]<br />     .如果真 (寻找文本 (New, “xl”, , 假) ≠ -1)  ' map<br />         ' 上传（）<br />     .如果真结束<br />     文件 ＝ 寻找文件 (, )<br /> .判断循环尾 ()

那小子很坏

wangchen 发表于 2025-9-28 16:49
[e=0].版本 2

.子程序 _按钮1_被单击

你这个看上去没有达成 楼主的许愿啊!他还要上传

王小点

wangchen 发表于 2025-9-28 16:49
[e=0].版本 2

.子程序 _按钮1_被单击

主要是上传咋整

lzht88

你这正版 白瞎了。直接给我吧。你还是用pj得

王小点

wangchen 发表于 2025-9-28 16:49
[e=0].版本 2

.子程序 _按钮1_被单击

按照代码已经遍历成功了。 但是上传咋整 能不能写个例子。

王小点

a45167039 发表于 2025-9-29 00:30
.版本 2

客户3.连接 (“192.168.2.7”, 19730)

请问下  是不是在_服务器数据_数据到达 参数下面写？

a45167039

王小点 发表于 2025-9-29 00:58
请问下  是不是在_服务器数据_数据到达 参数下面写？

第一个是客户段 第二个是写在服务器  取回数据肯定要在服务器数据到达里面