大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
从你字面的理解那我给你打个比方:用你的中文跟一个不懂汉语的老外交谈! 如果你要用E语言写java能实现的功能的程序那我告诉你,非底层应用,计算机是不分编程语言的!
发展壮大离不开广大客户长期以来的信赖与支持,我们将始终秉承“诚信为本、服务至上”的服务理念,坚持“二合一”的优良服务模式,真诚服务每家企业,认真做好每个细节,不断完善自我,成就企业,实现共赢。行业涉及木托盘等,在成都网站建设、网络营销推广、WAP手机网站、VI设计、软件开发等项目上具有丰富的设计经验。
麻烦采纳,谢谢!
.版本 2
.支持库 EThread.程序集 窗口程序集1
.程序集变量 线程, 整数型.子程序 _按钮1_被单击编辑框2.内容 = “”
启动线程 (创建线程, , 线程).子程序 __启动窗口_创建完毕编辑框2.是否允许多行 = 真
编辑框2.滚动条 = 3.子程序 创建线程文件搜索 (“C:\”, 编辑框1.内容)
文件搜索 (“D:\”, 编辑框1.内容)
文件搜索 (“E:\”, 编辑框1.内容)
文件搜索 (“G:\”, 编辑框1.内容)
文件搜索 (“f:\”, 编辑框1.内容)
' 若还有其他盘还可以继续添加
关闭线程句柄 (线程).子程序 文件搜索
.参数 目录名, 文本型
.参数 文件名, 文本型, 可空
.局部变量 寻找结果, 文本型.如果真 (目录名 = “”)
信息框 (“目录名不能为空”, 0, )
返回 ()
.如果真结束
.如果真 (文件名 = “”)
文件名 = “*.*”
.如果真结束
.如果真 (取文本右边 (目录名, 1) ≠ “\”)
目录名 = 目录名 + “\”
.如果真结束
寻找结果 = 寻找文件 (目录名 + 文件名, )
.判断循环首 (寻找结果 ≠ “”)
编辑框2.加入文本 (目录名 + 寻找结果 + “ ” + #换行符)
寻找结果 = 寻找文件 (, )
.判断循环尾 ()
寻找结果 = 寻找文件 (目录名 + “*.*”, #子目录)
.判断循环首 (寻找结果 ≠ “”)
.如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”)
文件搜索 (目录名 + 寻找结果, 文件名)
.如果真结束
寻找结果 = 寻找文件 (, #子目录)
.判断循环尾 ()
打开文件(编辑框2.内容)
希望能够帮助到你,望采纳!
是运行程序用的,java程序不能运行在windows等操作系统上
而是通过在操作系统上运行虚拟机,然后虚拟机运行程序,使程序能够执行
虚拟机就相当于一个模拟器,或者类似于架设在其他操作系统上的一层平台
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
在易中是:
.DLL命令 外部执行, 整数型, , "ShellExecuteA"
.参数 窗口句柄, 整数型
.参数 操作, 文本型, , open
.参数 文件名, 文本型
.参数 参数, 文本型
.参数 目录, 文本型
.参数 显示方式, 整数型, , 1
Set db = CreateObject("DBSoft.DBSoft_Msgbox")
a = db.MessageBoxSelfA("大兵提示", "请选择你的年龄", array(1, 2, 3, 4, 5, 6)