0

さまざまな日付のファイルを一覧表示するVBSリストスクリプトがあります。すべてのファイルはMSWord文書ですが、文書属性からAUTHORが必要です（「author」属性をグーグルで検索してみましたが、最適な検索ではありません）。

私はフォルダ内のすべてのドキュメントのテキストリストを探しています：-ファイル名、アクセス日、作成日、変更日、作成者。私はVBSがそれをクラックすることを望んでいましたが、そこに別の解決策があれば、私は提案を受け入れます。

On Error Resume Next

Const WINDOW_HANDLE = 0
Const BIF_EDITBOX = &H10
Const BIF_NONEWFOLDER = &H0200
Const BIF_RETURNONLYFSDIRS = &H1

Set objShell = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'**Browse For Folder To Be Processed
strPrompt = "Please select the folder to process."
intOptions = BIF_RETURNONLYFSDIRS + BIF_NONEWFOLDER + BIF_EDITBOX
strTargetPath = wshShell.SpecialFolders("MyDocuments")
strFolderPath = Browse4Folder(strPrompt, intOptions, strTargetPath)

Set objNewFile = objFSO.CreateTextFile(strFolderPath & "\filelist.txt", True)
Set objFolder = objFSO.GetFolder(strFolderPath)
Set objColFiles = objFolder.Files

For Each file In objColFiles
    objNewFile.WriteLine(file.Name)
    objNewFile.WriteLine(file.DateCreated)
    objNewFile.WriteLine(file.DateLastAccessed)
    objNewFile.WriteLine(file.DateLastModified)
Next
objNewFile.Close

'**Browse4Folder Function
Function Browse4Folder(strPrompt, intOptions, strRoot)
    Dim objFolder, objFolderItem

    On Error Resume Next

    Set objFolder = objShell.BrowseForFolder(0, strPrompt, intOptions, strRoot)
    If (objFolder Is Nothing) Then
        Wscript.Quit
    End If
    Set objFolderItem = objFolder.Self
    Browse4Folder = objFolderItem.Path
    Set objFolderItem = Nothing
    Set objFolder = Nothing
End Function
4

1 に答える 1

0

Word Application オブジェクトのプロパティを確認する必要があります。

たとえば、これを行う方法については、こちらを参照してください。

次のようになります。

Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Open("myWordDocument.doc")
Set sAuthor = oDoc.BuiltInDocumentProperties("Author")
于 2012-09-06T10:37:09.153 に答える