2013-07-25 79 views
0

如何使用vbscript寫入xml文件??? 我想將各種文件的大小和類型打印到一個xml文件中並列出它。我該怎麼做?如何使用vbscript寫入xml

例如:文件夾E有3個文件。所以想編寫一個程序,THT程序檢查文件夾E,並列出所有文件的大小和類型在其XML文件

請幫助

下面

是我寫的所有文件複製程序一個文件夾到一個文本文件..但我想正​​如您所提到fciv複製到一個XML

Option Explicit 
Dim objFSO,objf,objfolder, objFile, strFileProperties, strFiles,OBJFLD,objfile2 
dim objf1,objfile1,objtextfile,strfolderproperties,objsubfld 


Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objf= objFSO.Getfolder("C:\Test") 
set OBJFLD=objf.subfolders 

for each objfolder in OBJFLD 

    strFolderproperties = strFolderproperties & "Number of files: " & objFolder.Files.Count & VbCrLf 

    set objfile2=objfolder.files 
    for each objfile in objfile2 

     ' Display generel file properties 
     strFileProperties = strFileProperties & "File name: " & objFile.Name & VbCrLf 
     strFileProperties = strFileProperties & "File path: " & objFile.Path & VbCrLf 
     strFileProperties = strFileProperties & "File size: " & objFile.Size & " bytes" & VbCrLf 
     strFileProperties = strFileProperties & "File type: " & objFile.Type & VbCrLf & vbcrlf 
    next 
next 


set objf1=objfso.getfolder("E:\logs3") 
set objfile1=objfso.getfile("E:\logs3\database.txt") 

set objf1=nothing 
set objfile1=nothing 

set objtextfile=objfso.opentextfile("E:\logs3\database.txt",8,true) 

objtextfile.writeline(strfileproperties) 
objtextfile.close 

set objf1=objfso.getfolder("E:\logs3") 
set objfile1=objfso.getfile("E:\logs3\database.txt") 

set objf1=nothing 
set objfile1=nothing 


set objsubfld=objfso.opentextfile("E:\logs3\database.txt",8,true) 
objsubfld.writeline(strfolderproperties) 
objsubfld.close 
+0

XML文件應具有哪些結構?你試過什麼了? –

+0

到目前爲止我已經使用vbscript並編寫了一個程序來列出一個特定文件夾的所有文件到一個文本文件。但現在我需要將它保存到一個XML文件...我不知道很多ABT XML文件..將張貼在程序下面 –

+0

XML是一個結構化的格式,所以你需要定義的結構。結果應該是什麼樣子? –

回答

0

,您可以使用該程序來確定您的.xml文件的結構內容。即使使用-r調用,fciv也會創建一個FILE_ENTRY的平面列表 - 您是否需要分層結構?對於每個文件,fciv都會添加路徑和簽名元素 - 您提到的類型信息究竟是什麼? - 它應該編碼爲元素還是屬性? - 你還想了解一個文件嗎?

您的規格可能應明確固定在架構(.xsd)文件中。

無論您決定更改/附加到由fciv創建的.xml文件,還是從頭創建文件,都需要XML Document。用它來加載修改後的fciv文件。創建/附加標準的'標題',對.xsd的引用和合適的根元素。

更改意味着循環遍歷所有FILE_ENTRY節點並附加子元素和/或屬性。

創建一個樹應該用一個帶有父節點(文件夾元素)和文件夾的函數/子來完成。對於文件夾中的每個文件,應該添加一個子節點(文件元素,帶有合適的子節點/屬性)。對於每個子文件夾,創建一個新的文件夾元素並將其(以子文件夾)遞歸地發送給函數/子。

完成後,保存文件。

+0

好吧..會嘗試做你說的..我完全陌生的這種語言..因此,在編程時發現困難..非常感謝幫助 –

+0

我想知道每個文件的大小(xx kb或xx mb等)和文件類型(例如:exe,txt等) –