[问题求助] VBS如何按exe文件的最后修改时间的先后依次执行指定目录中的程序

我来了

求个VBS的，
按生产的时间，


运行指定目录C:\test\XYZ.XXX
注XYZ为随机文件名,*.XXX为特定类型可以看作是EXE

按时间执行第一个EXE
并按下ctrl+V
延迟1秒钟
第二个EXE
ctrl+V
延迟1秒钟
。。。。
第三个EXE
ctrl+V
延迟1秒钟
。。。。。。
。。。。。
。。。。。

多谢老师~~~~~~~~~~~~~~~~~~~~~~~~~~~

9zhmke

看不懂说的啥

CrLf

能用 bat 或 js 或 wsf 吗？

我来了

回复 3# CrLf


在别的论坛，别人给我搞了一个，但结果是不正确的

@echo off
for %%f in ("C:\test\*.exe") do start %%~sf

能不能变成执行完一条再执行第2条之间 延时1秒钟？

这样就能自动化的模仿clipmate的序列剪贴功能了。


我的目的是，让它按生成的时间顺序来读取相关文件 （就当做是.exe文件就成）.powerproclip类型的文件（由于文件的关联性已经通过注册表导入好了）
只要能运行，这种类型的，就可以把数据库弄到剪贴板了，这样再安排好，间隔时间就能模拟出clipmate的序列剪贴功能了。那位朋友还说什么使用计划任务那样就不达标了，
所以想到了VBS的了


只要，把批定类型的文件，当做.exe处理，关键那个生成的时间循序来支持给写出来就成了，读一个，间隔一秒，再第二个。。。。。一秒，第三个。。。。。基本就这意思。

apang

Set ws = CreateObject("WScript.Shell")
If WScript.Arguments.Length = 0 Then
    ws.Run "cscript """ & WScript.ScriptFullName & """ OK", 0
    WScript.Quit
End If
ws.CurrentDirectory = "C:\Test"
Set oExec = ws.Exec("cmd /c dir /b /od *.exe")
while Not oExec.StdOut.AtEndOfStream
    f = oExec.StdOut.ReadLine
    ws.Run chr(34) & f & chr(34), , true
    rem ws.SendKeys "^V"
    WScript.Sleep 1000
wend
复制代码

terse

楼主是想把文件运行结果送到剪贴板，还是把文件内容送到剪贴板呢？
既然用VBS  还不如直接操作clipboardData

我来了

回复 6# terse

因为只要能运行，那种PowerPro格式的剪贴板文件就会自动被送入剪贴板，关键中间的那个延迟１秒