huoqingpo 发表于 2009-3-21 16:47:37

保存文件信息问题

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

If Not @error Then
        $YYYYMMDDHHMMSS = $t & "-" & $t & "-" & $t& "-" & $t& ":" & $t& ":" & $t
EndIf


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

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

luke 发表于 2009-3-21 20:29:35

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 & "-" & $File_Time & "-" & $File_Time& "-" & $File_Time& ":" & $File_Time& ":" & $File_Time
EndIf
$File = FileOpen($File_txt_Path, 1+8)
If $File = -1 Then
MsgBox(0, "警告", "打开文件失败！")
Exit
EndIf
FileWrite($File, "【在" & $Date & "读取的文件修改时间】" & $YYYYMMDDHHMMSS & @CRLF)
FileClose($File)

huoqingpo 发表于 2009-3-21 21:36:56

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

漠北雪~狼 发表于 2009-3-21 23:18:24

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

huoqingpo 发表于 2009-3-22 17:19:03

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

sxd 发表于 2009-3-23 08:22:55

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

漠北雪~狼 发表于 2009-3-25 22:57:22

:face (24): :face (24):

6楼你太有才了.
页: [1]
查看完整版本: 保存文件信息问题