已经能实现此功能，但是，此程序（vb6的exe）只运行一次，如何使其在不人工关闭的情况下，一直不停地运行？

用以下代码可以持续一段时间，但不能持续多久：
For i = 0 To 9999999999999999999
 原代码
Next
此法也太笨了。

[ 本帖最后由 HVB6 于 2015-7-30 20:13 编辑 ]

2楼的笨代码也不能实现，开机只运行一次。

能实现1楼要求的代码如何写？

1楼的代码如下：
sub test()
     s="d:\数据文件\*.*"
  do while s<>""
      i=i+1
    if i=12 then
      s1="d:\数据文件\*.*"
      set fs=createobject("scripting.filesystemobject")
      fs.copyfile s1,"d:\数据文件备份\"，true
      set fs=nothing
      exit do
    end if
     s=dir
  loop
end sub
代码的功能，就是时刻检查“d:\数据文件\”文件夹下的文件个数达到12个，就复制到"d:\数据文件备份\"文件夹中。
要求每天开机就一直运行此代码。此代码复制文件后自动退出。

     

1楼的代码是已经实现隐蔽运行，所以不需要任何控件。

计划任务已经会做。只是希望一开机1楼的代码就可不停地运行。

感谢您的祝福，的确成功了，但不是用您的方法，而此方法也太简单了，真没想到，
即：xp系统→启动→自编的vb6程序→打开1楼的程序。

是的。