Sub Main()Dim K As Integer, L As Integer, N As Integer, M As Integer, I As Integer
Dim Temp As String, T As String, SS As Single
Dim ComePath As String, GoPath As String '文件路径
Dim FileHF As String  '来报文件名
Dim Filemix As String '加上路径
Dim newfile As String ' 新文件
Dim Filename As String '加上路径的新文件Dim year As String
Dim tmpDate As Date, strFile As String, strTmp As String
Dim realtime As String, ineedtime As StringDim myFile As String
Dim myData As StringN = FreeFile
Open "autorain.cfg" For Input As #N
  T = ""
  Line Input #N, T
  j = InStr(T, " ")
 ComePath = T
 
 
  T = ""
  Line Input #N, T
  j = InStr(T, " ")
  GoPath = T 
tmpDate = DateAdd("n", -0, Now())    '取当前的时间realtime = Format(tmpDate, "yyyymmddHHnn00")
year = Left(realtime, 4)ineedtime = Left(realtime, 11) + "000"myFile = Dir(ComePath & "\?????_2006" & ".txt")
Do Until myFile = ""
    Open ComePath & "\" & myFile For Input As #1
    myData = Input(LOF(1), 1)
    Close #1
    Open GoPath & "\china_200606281540" For Append As #1
    Print #1, myData
    Close #1    myFile = Dir()
Loop
end sub
----------------运行好象不行,后来有人把他保存为moudle,好象就可以了.他说我存的是窗体,所以不行?  那位知道究竟有什么区别?

解决方案 »

  1.   

    Sub Main()
    放模块的话这个是启动这个如果放窗体里他运行不到窗体自动运行是formload
      

  2.   

    在问个弱智的问题,我看大家遍的程序也没用 formload 开头,不也用窗体保存么?2者在编程中有无区别?只是保存类型不一样么 谢谢!
      

  3.   

    不是的你可以看下工程属性里的启动而且我说的form load的意思是自动启动也就窗体打开就启动这个过程你如果把sub main放进窗体的话也可以在form load调用他 来启动这个过程必须有个启动的过程否则代码不会执行的