如何使用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
XML文件應具有哪些結構?你試過什麼了? –
到目前爲止我已經使用vbscript並編寫了一個程序來列出一個特定文件夾的所有文件到一個文本文件。但現在我需要將它保存到一個XML文件...我不知道很多ABT XML文件..將張貼在程序下面 –
XML是一個結構化的格式,所以你需要定義的結構。結果應該是什麼樣子? –