0

いくつかの大規模なサイトは、不適切な Doctype (4.01 ではなく 4.0) でオンラインになっています。このコンテンツでファイルを更新するスクリプトを作成しましたが、ファイルの変更日が更新され、これを元の日付として保持したいのですが、これは vbscript (クラシック ASP を使用) で可能ですか?

ファイルの内容を単純に置き換える私のコードは次のとおりです。

' My folder root is here
FileRoot = "D:\myRootHere\"
' Now I use Persits upload because I need the impersonation setting below it
Set Upload = Server.CreateObject("Persits.Upload")
' Set impersonation to authorise file over-writing (this is correct and working)
Upload.LogonUser "localhost","myUsername","myPassword"
Set Dir = Upload.Directory(FileRoot & "*.asp", SORTBY_TYPE)
For Each item in Dir
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(FileRoot & item.FileName, ForReading)
    strText = objFile.ReadAll
    objFile.Close
    If instr(strText,"HTML 4.0 Transitional") then
        strNewText = Replace(strText,"HTML 4.0 Transitional","HTML 4.01 Transitional")
        Set objFile = objFSO.OpenTextFile(FileRoot & item.FileName, ForWriting)
        objFile.WriteLine strNewText
        objFile.Close
    End If
Next
Set Upload = nothing
4

1 に答える 1

0

私はここからこの例を取りました

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.NameSpace(FilePath)
Set objFolderItem = objFolder.ParseName(FileName)

objFolderItem.ModifyDate = "01/01/2013 8:00:00 AM"

そして、フォルダ内のファイルでOKをテストしましEveryoneたFull Control

于 2013-05-09T02:43:39.127 に答える