张平  2010-06-02

把MsgBox "arrays(i)"的引号去掉，干嘛加引号，这样：msgbox arrays(i)

王艳  2010-06-02

张平  2010-06-02

曾晨  2010-06-02

Public Function logPrint(ByVal logMessage)
    Dim fso, logFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set logFile = fso.OpenTextFile("D:\runtime.log", 8, True)
    logFile.WriteLine(date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & ": " & logMessage)
    logFile.Close
End Function
Dim  i , arrays(3)
arrays(0)="ssssssss"
arrays(1)="aaaaaaa"
arrays(2)="bbbbbbb"
arrays(3)="cccccccf"
For i=0 To  3
logPrint(arrays(i))
Next
我一般的做法是写运行日志 你可以试试

王艳  2010-06-02

曾晨  2010-06-02

1 以只读模式打开文件。不能对此文件进行写操作。
2 以只写方式打开文件。不能对此文件进行读操作。
8 打开文件并在文件末尾进行写操作。

焦爱玲  2010-06-02

学习了

王艳  2010-06-02

刘旸  2010-06-02

呵呵，建议你学习autoit，我觉得还是蛮好的。

王艳  2010-06-02

曾晨  2010-06-02

王艳  2010-06-02

曾晨  2010-06-02

刘旸  2010-06-02

你可以google一下，其实是一个跟VBS很接近的脚本工具。
不过，我感觉比vbs好。
有比较系统的编辑工具，帮助，函数库。
也可以很容易的做图形化界面。

孙承芬  2010-06-02

美女，不用加双引号的，直接就是  MsgBox  arrays(i)，加双引号输出的就是
arrays(i)这个字符串了……

王艳  2010-06-02

杨弸  2010-06-02

路过。。。。  你们都太厉害了，自己编脚本，对代码还那么熟悉，我真是菜中之菜了

程守标  2010-06-03

学习了

纪安  2010-06-03

Dim fso, logFile, i , arrays(3)
Set fso = CreateObject("Scripting.FileSystemObject")
arrays(0)="ssssssss"
arrays(1)="aaaaaaa"
arrays(2)="bbbbbbb"
arrays(3)="cccccccf"
For i=0 To  3
logPrint(arrays(i))
Next
Set fso=Nothing

Public Sub logPrint(ByVal logMessage)   
    Set logFile = fso.OpenTextFile("D:\runtime.log", 8, True)
    logFile.WriteLine(date() & " " & hour(now) & ":" & minute(now) & ":" & second(now) & ": " & logMessage)
    logFile.Close
End Sub