保存文件信息问题

huoqingpo

$t =  FileGetTime("E:\Rav2009.exe", 0)

If Not @error Then
        $YYYYMMDDHHMMSS = $t[0] & "-" & $t[1] & "-" & $t[2]& "-" & $t[3]& ":" & $t[4]& ":" & $t[5]
EndIf

这个代码可以提取文件的修改日期 ,但是怎么将修改日期的信息保存到一个text文件啊.那个大哥给帮忙弄下,谢谢了
最好还能写下怎么上传到一个指定位置. 我是网吧用户想把这个程序网吧每台机子上运行一下,查以个文件的修改日期.然后全部上传到服务器上,一机子号命名.那台机子的文件不一样了.

[ 本帖最后由 huoqingpo 于 2009-3-26 22:48 编辑 ]

luke

Dim $File_Line, $File, $File_txt_Path, $File_Read_Path, $File_Time, $Date
$File_txt_Path = "C:\Test\FileTime.txt";要保存的text文件位置和文件名
$File_Read_Path = "E:\Rav2009.exe";要读取的文件位置和文件名
$File_Time =  FileGetTime($File_Read_Path, 0)
$Date = @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC;当前系统时间，在说明文字中引用

If Not @error Then
    $YYYYMMDDHHMMSS = $File_Time[0] & "-" & $File_Time[1] & "-" & $File_Time[2]& "-" & $File_Time[3]& ":" & $File_Time[4]& ":" & $File_Time[5]
EndIf
$File = FileOpen($File_txt_Path, 1+8)
If $File = -1 Then
MsgBox(0, "警告", "打开文件失败！")
Exit
EndIf
FileWrite($File, "【在" & $Date & "读取的文件修改时间】" & $YYYYMMDDHHMMSS & @CRLF)
FileClose($File)

huoqingpo

恩，很好··但是 $File_txt_Path = "C:\Test\FileTime.txt";  怎么以电脑名称自动命名呢。

漠北雪~狼

多看帮助文档！
靠山山会倒，靠人人会老。

huoqingpo

问题解决了··自动上传自动设置机子名字，
谁需要说话

sxd

靠山山会倒，靠人人会老。
横批 我靠

漠北雪~狼

6楼你太有才了.