Copy files modified using VBScript

demo

1. Const srcDir = "C:\HourTest"
   
2. Const destDir = "H:\HourTest"
   
3. hourAgo = DateAdd("h", -1, Now)
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. 
   
6. For Each f In fso.GetFolder(srcDir).Files
   
7.   If f.DateLastModified > hourAgo Then _
   
8.     f.Copy destDir & ""
   
9. Next 'f

复制代码

Just a simple demo

demo

1. Const srcDir = "C:\Test"
   
2. Const destDir = "H:\Test"
   
3. hourAgo = DateAdd("h", -1, Now)
   
4. ShowText = ""
   
5. SameText = ""
   
6. UpText=""
   
7. Set fso = CreateObject("Scripting.FileSystemObject")
   
8. 
   
9. For Each f In fso.GetFolder(srcDir).Files
   
10.     If f.DateLastModified > hourAgo Then _
    
11.       'f.Copy destDir & ""
    
12.       'Wscript.Echo destDir
    
13.       UpText = UpText & VBCrLf & "    " & destDir & "" & f.name & " - " & f.DateLastModified
    
14.       'Fl = fso.GetFile(f)
    
15.       'UpText = UpText & VBCrLf & "    " & destDir & "" & fso.GetFileName(fl) & " - " & f.DateLastModified
    
16.     Else
    
17.       SameText = SameText & VBCrLf & "        " & f.name & "    " & f.DateLastModified
    
18.       '& "(" & f & ")"
    
19.     End If
    
20. Next 'f
    
21. Wscript.Echo "Changed:" & UpText & VBCrLf & "Unchanged:" & SameText

复制代码

More intuitive code.

Test

A more flexible source code:

1. Option Explicit
   
2. 
   
3. Dim WshShell
   
4. Dim fso
   
5. Dim USERPROFILE
   
6. Dim srcPath
   
7. Dim tgtPath
   
8. On Error Resume Next
   
9. Set WshShell = WScript.CreateObject("Wscript.Shell")
   
10. Set fso = WScript.CreateObject("Scripting.FilesystemObject")
    
11. 'USERPROFILE = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
    
12. srcPath = "\\hssphn140029\Source Folder\TitleX.txt"
    
13. tgtPath = "\\hssd4550xp\Target Folder\TitleX.txt"
    
14. If Not fso.FileExists(tgtPath) Then
    
15.         fso.CopyFile srcPath, tgtPath, True
    
16. ElseIf fso.FileExists(srcPath) Then
    
17.         ReplaceIfNewer srcPath, tgtPath
    
18. End If
    
19. 
    
20. Sub ReplaceIfNewer(strSourceFile, strTargetFile)
    
21.         Const OVERWRITE_EXISTING = True
    
22.         Dim objFso
    
23.         Dim objTargetFile
    
24.         Dim dtmTargetDate
    
25.         Dim objSourceFile
    
26.         Dim dtmSourceDate
    
27.         Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
    
28.         Set objTargetFile = objFso.GetFile(strTargetFile)
    
29.         dtmTargetDate = objTargetFile.DateLastModified
    
30.         Set objSourceFile = objFso.GetFile(strSourceFile)
    
31.         dtmSourceDate = objSourceFile.DateLastModified
    
32.         If (dtmTargetDate < dtmSourceDate) Then
    
33.                 objFso.CopyFile objSourceFile.Path, objTargetFile.Path,OVERWRITE_EXISTING
    
34.         End If
    
35.         Set objFso = Nothing
    
36. End Sub

复制代码

Then it may be better with an extra para to tell how long it modified then update it.
   

Test

To Write:

1. Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\listfile.txt",2,true)
   
2. objFileToWrite.WriteLine(data)
   
3. objFileToWrite.Close
   
4. Set objFileToWrite = Nothing

复制代码

OpenTextFile parameters:

<filename>, IOMode (1=Read,2=write,8=Append), Create (true,false), Format (-2=System Default,-1=Unicode,0=ASCII)

To Read the entire file

1. Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\listfile.txt",1)
   
2. strFileText = objFileToRead.ReadAll()
   
3. objFileToRead.Close
   
4. Set objFileToRead = Nothing

复制代码

To Read line by line

1. Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\listfile.txt",1)
   
2. Dim strLine
   
3. do while not objFileToRead.AtEndOfStream
   
4.      strLine = objFileToRead.ReadLine()
   
5.      'Do something with the line
   
6. loop
   
7. objFileToRead.Close
   
8. Set objFileToRead = Nothing

复制代码

Test

Cheat sheet

<%= Date()%>         08/04/2007
<%=Now()%>         08/04/2007 20:20:15
<%=Time()%>         20:20:15
<%=FormatDateTime(Now(),vbGeneralDate)%>         08/04/2007 20:20:15
<%=FormatDateTime(Now(),vbLongDate)%>         08 April 2007
<%=FormatDateTime(Now(),vbShortDate)%>         08/04/2007
<%=FormatDateTime(Now(),vbLongTime)%>         20:20:15
<%=FormatDateTime(Now(),vbShortTime)%>         20:20
<%=Year(Now())%>         2007
<%=Month(Now())%>         4
<%=Day(Now())%>         8
<%=Hour(Now())%>         20
<%=Minute(Now())%>         20
<%=Second(Now())%>         15
<%=WeekDay(Now())%>         1
<%=WeekDayName(WeekDay(Now()))%>         Sunday
<%=WeekDayName(WeekDay(Now()),1)%>         Sun
<%=MonthName(Month(Now()))%>         April
<%=MonthName(Month(Now()),1)%>         Apr
           
DatePart("d", Now)         8 (Day of Month)
DatePart("w", Now)         1 (Week of Month)
DatePart("m", Now)         4 (Month of Year)
DatePart("ww", Now)         15 (Week of Year)
DatePart("y", Now)         98 (Day of Year)
DatePart("yyyy", Now)         2007 (Year)
DatePart("q", Now)         2 (Quarter)
DatePart("h", Now)         20 (Hour)
DatePart("n", Now)         20 (Minute)
DatePart("s", Now)         15 (Second)



vbUseSystem
       0
        Uses the National Language Support API to determine the first full week based on the regional and language settings.

vbFirstJan1
        1
        Sets the first week as the week in which January 1 occurs. (Default)

vbFirstFourDays
        2
        Sets the first week as the first week to have at least four days in it.

VbFirstFullWeek
        3
        Sets the first week as the first week that begins on a Sunday.


DatePart("ww", Now, vbUseSystem)         14
DatePart("ww", Now, vbFirstJan1)         15
DatePart("ww", Now, vbFirstFourDays)         14
DatePart("ww", Now, VbFirstFullWeek)         15

Use of concatentation to customise date display:

<%
Response.Write WeekDayName(WeekDay(Now())) & _
", " & MonthName(Month(Now())) & _
" " & Day(Now()) & ", " & Year(Now())
%>

gives

Sunday, April 8, 2007

To write out the ordinal suffix for the day:

<%
Select Case Day(Now())
Case 1,21,31
ordsuffix = "st"
Case 2,22
ordsuffix = "nd"
Case 3,23
ordsuffix = "rd"
Case else
ordsuffix = "th"
End select
Response.Write (WeekDayName(WeekDay(Now())))
Response.Write (", ")
Response.Write (MonthName(Month(Now())))
Response.Write (" ")
Response.Write (Day(Now())
Response.Write (ordsuffix)
Response.Write (" ")
Response.Write (Year(Now())
%>

Sunday, April 8th 2007

Useful for schedule proccessing...

Test

Thanks for the articles above. The final code just like this: Totally customizable on file list, time interval, and if you want want old file to be over writen or not...Further more, you can have a log file to record all the updates.

1. ' --------------------------------
   
2. ' Function: Synchronise files in different places either local or over the network
   
3. ' Developed by: John Z
   
4. ' Contact: cq_box@163.com
   
5. ' Date: May 23, 2013
   
6. ' -----------------------------------
   
7.     Const srcDir = "D:\Source"
   
8.     Const destDir = "\\Server\ShareFolder\DestFolder"
   
9.     Const LogFile = "\\Server\ShareFolder\Logs\Entre_Log"
   
10.     Const OVERWRITE_EXISTING = True
    
11.     Const DayOfDeffer = 0
    
12.    
    
13.     FileList = Array("File_1","Second.exe","Third.txt","Four.vbs","Five.jpg")
    
14.     Set fso = CreateObject("Scripting.FileSystemObject")
    
15. 
    
16.     For Each fn In FileList
    
17.       If fso.FileExists(srcDir & "" & fn) Then
    
18.         If Not fso.FileExists(DestDir & "" & fn) Then
    
19.           Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile,8,true)
    
20.           fso.CopyFile srcDir & "" & fn, DestDir & "" & fn, True
    
21.           objFileToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & _
    
22.              Time & " --- copy " & DestDir & "" & fn & " from " & srcDir & "" & fn)
    
23.           objFileToWrite.Close
    
24.           Set objFileToWrite = Nothing
    
25.         ElseIf fso.FileExists(srcDir & "" & fn) Then
    
26.           ReplaceIfNewer srcDir & "" & fn, DestDir & "" & fn, DayOfDeffer, OVERWRITE_EXISTING
    
27.         End If
    
28.       End If
    
29.     Next 'fn
    
30.     'Wscript.Echo "Done."
    
31.    
    
32.     Sub ReplaceIfNewer(strSourceFile, strTargetFile, DayDiffer, OVRWrite)
    
33.         Dim objFso
    
34.         Dim objTargetFile
    
35.         Dim dtmTargetDate
    
36.         Dim objSourceFile
    
37.         Dim dtmSourceDate
    
38.         Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile,8,true)
    
39.         Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
    
40.         Set objTargetFile = objFso.GetFile(strTargetFile)
    
41.         dtmTargetDate = objTargetFile.DateLastModified
    
42.         Set objSourceFile = objFso.GetFile(strSourceFile)
    
43.         dtmSourceDate = objSourceFile.DateLastModified
    
44.         If ( dtmSourceDate > DateAdd("d", DayOfDeffer, dtmTargetDate )) Then
    
45.                 objFso.CopyFile objSourceFile.Path, objTargetFile.Path, OVRWrite
    
46.                 objFileToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & Time & " --- update " & strTargetFile & " from " & strSourceFile)
    
47.         End If
    
48.         Set objFso = Nothing
    
49.         objFileToWrite.Close
    
50.         Set objFileToWrite = Nothing
    
51.     End Sub

复制代码

Can just use it after openning this box.

demo

With a little extra function attached. maybe good for some special circumstances. AND... It's easy to extand it ....

1. ' --------------------------------
   
2. ' Function: Synchronise files in different places either local or over the network
   
3. ' Developed by: John Z
   
4. ' Contact: cq_box@163.com
   
5. ' Date: May 23, 2013
   
6. ' -----------------------------------
   
7.     Const srcDir = "\\The\Source\Dat"
   
8.     Const destDir = "D:\Destination\Dir"
   
9.     Const LogFile = "\\Server\Logs\MonthEnd_Log"
   
10.     Const ErrLog = "\\Server\Logs\Error_Log"
    
11.     Const OVERWRITE_EXISTING = True
    
12.     Const DayOfDeffer = 27
    
13.    
    
14.     Dim FileList
    
15.     Dim Flg, strErr
    
16.    
    
17.     FileList = Array("binloc.txt","order.txt","product.txt","customer.txt")
    
18.     Flg = False
    
19.     strErr = ""
    
20. 
    
21.     Set fso = CreateObject("Scripting.FileSystemObject")
    
22. 
    
23.     For Each fn In FileList
    
24.       On Error Resume Next
    
25.    
    
26.       If fso.FileExists(srcDir & "" & fn) Then
    
27.         If Not fso.FileExists(DestDir & "" & fn) Then
    
28.           Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile,8,true)
    
29.           fso.CopyFile srcDir & "/" & fn, DestDir & "" & fn, True
    
30.           objFileToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & Time & " --- copy " & DestDir & "" & fn & " from " & srcDir & "" & fn)
    
31.           objFileToWrite.Close
    
32.           Set objFileToWrite = Nothing
    
33.           Flg = True
    
34.         ElseIf fso.FileExists(srcDir & "" & fn) Then
    
35.           ReplaceIfNewer srcDir & "" & fn, DestDir & "" & fn, DayOfDeffer, OVERWRITE_EXISTING
    
36.         End If
    
37.       End If
    
38.    
    
39.       If err.number <> 0 Then
    
40.           Set objErrToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(ErrLog,8,true)
    
41.           objErrToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & Time & " --- Error on File (" & fn & "): " & err.Description)
    
42.           objErrToWrite.Close
    
43.           Set objErrToWrite = Nothing
    
44.       End If
    
45.     Next 'fn
    
46.    
    
47.     If Flg Then
    
48.         CrLf_Convert FileList
    
49.     End If
    
50.    
    
51.     Set fso = Nothing
    
52.     'Wscript.Echo "Done."
    
53.    
    
54.    
    
55.     Sub ReplaceIfNewer(strSourceFile, strTargetFile, DayDiffer, OVRWrite)
    
56.         Dim objFso
    
57.         Dim objTargetFile
    
58.         Dim dtmTargetDate
    
59.         Dim objSourceFile
    
60.         Dim dtmSourceDate
    
61.         Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile,8,true)
    
62.         Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
    
63.         Set objTargetFile = objFso.GetFile(strTargetFile)
    
64.         dtmTargetDate = objTargetFile.DateLastModified
    
65.         Set objSourceFile = objFso.GetFile(strSourceFile)
    
66.         dtmSourceDate = objSourceFile.DateLastModified
    
67.         If ( dtmSourceDate > DateAdd("d", DayOfDeffer, dtmTargetDate )) Then
    
68.                 objFso.CopyFile objSourceFile.Path, objTargetFile.Path, OVRWrite
    
69.                 objFileToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & Time & " --- update " & strTargetFile & " from " & strSourceFile)
    
70.                 Flg = True
    
71.         End If
    
72.         Set objFso = Nothing
    
73.         objFileToWrite.Close
    
74.         Set objFileToWrite = Nothing
    
75.     End Sub
    
76.    
    
77.     Sub CrLf_Convert(objARG)
    
78.         '*  
    
79.         '*  Declare Constants  
    
80.         '*  
    
81.   
    
82.         Const cVBS = "2crlf_v2.vbs - Convert CR/LF to CRLF  Version 2"  
    
83.   
    
84.         '*  
    
85.         '*  Declare Variables  
    
86.         '*  
    
87.   
    
88.         Dim boo_CR  
    
89.         Dim boo_LF  
    
90.         Dim boo_OK  
    
91.         Dim intARG, intLEN  
    
92.         Dim strARG, strDST  
    
93.         Dim strMSG  
    
94.   
    
95.         strMSG = "Converted files:" & vbCrLf  
    
96.         strDST = "_a.txt"
    
97.   
    
98.         Dim strOTF  
    
99.   
    
100.         '*  
     
101.         '*  Declare Objects  
     
102.         '*  
     
103.   
     
104.         'Dim objARG  
     
105.         'Set objARG = WScript.Arguments  
     
106.         Dim objFSO, objLogWrite  
     
107.         Set objFSO = CreateObject("Scripting.FileSystemObject")  
     
108.         Set objLogToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile,8,true)
     
109.         Dim objOTF  
     
110.   
     
111.         '*  
     
112.         '*  Convert Each Drag-and-Drop File  
     
113.         '*  
     
114.          
     
115.         For intARG = 0 to uBound(objARG)   'objARG.Count - 1  
     
116.             Dim dFile
     
117.             On Error Resume Next
     
118.             
     
119.             strARG = destDir & "" & objARG(intARG)  
     
120.             intLEN = len(strARG)
     
121.             'strDST = destDir & "" & mid(strARG,1,intLEN-4) & "_a.txt"  'strDst
     
122.             strDST = mid(strARG,1,intLEN-4) & "_a.txt"  'strDst
     
123.             strMSG = strMSG & vbCrLf & strARG  
     
124.             If objFSO.FileExists(strARG) Then  
     
125.   
     
126.         '*  
     
127.         '*  Read File  
     
128.         '*  
     
129.   
     
130.                 dFile = strARG
     
131.                 Set objOTF = objFSO.OpenTextFile(strARG,1)  
     
132.                 strOTF = objOTF.ReadAll()  
     
133.                 Set objOTF = Nothing  
     
134.   
     
135.         '*  
     
136.         '*  Convert File (if applicable)  
     
137.         '*  
     
138.   
     
139.                 boo_CR = False  
     
140.                 boo_LF = False
     
141.                 dFile = strDST
     
142.   
     
143.                 If InStr(strOTF,vbCr) > 0 Then boo_CR = True  
     
144.                 If InStr(strOTF,vbLf) > 0 Then boo_LF = True  
     
145.   
     
146.                 If boo_CR And boo_LF Then  
     
147.                     boo_OK = False  
     
148.                     strMSG = strMSG & vbCrLf & vbTab & "(Not Converted)"  
     
149.                 ElseIf boo_CR Then  
     
150.                     strOTF = Replace(strOTF,vbCr,vbCrLf)  
     
151.                     boo_OK = True  
     
152.                     strMSG = strMSG & vbCrLf & vbTab & "(Converted CR)"  
     
153.                 ElseIf boo_LF Then  
     
154.                     strOTF = Replace(strOTF,vbLf,vbCrLf)  
     
155.                     boo_OK = True  
     
156.                     strMSG = strMSG & vbCrLf & vbTab & "(Converted LF)"  
     
157.                 End If  
     
158.   
     
159.         '*  
     
160.         '*  Write File  
     
161.         '*  
     
162.   
     
163.                 If boo_OK Then  
     
164.                     Set objOTF = objFSO.OpenTextFile(strDST,2,True)  
     
165.                     objOTF.Write(strOTF)  
     
166.                     Set objOTF = Nothing  
     
167.                 End If  
     
168.   
     
169.             Else  
     
170.                 strMSG = strMSG & vbCrLf & vbTab & "(File Not Found)"  
     
171.             End If  
     
172. 
     
173.             If err.number <> 0 Then
     
174.                 Set objErrToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(ErrLog,8,true)
     
175.                 objErrToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & Time & " --- Error on File (" & dFile & "): " & err.Description)
     
176.                 objErrToWrite.Close
     
177.                 Set objErrToWrite = Nothing
     
178.                 objLogToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & Time & " --- Error!!! " & dFile & ": see error log for detail.")
     
179.             End If
     
180.          
     
181.         Next  
     
182.   
     
183.         '*  
     
184.         '*  Destroy Objects  
     
185.         '*  
     
186.   
     
187.         'Set objARG = Nothing  
     
188.         Set objFSO = Nothing  
     
189.         objLogToWrite.Close
     
190.         Set objLogToWrite = Nothing
     
191.   
     
192.         '*  
     
193.         '*  Done  
     
194.         '*  
     
195.   
     
196.         'MsgBox strMSG,vbInformation,cVBS
     
197.     End Sub
     

复制代码

demo

You can also changing the filename while moving it.

1.     '************************************
   
2.     '* Function: copy files to another place with customized file name while it is updated.
   
3.     '* Coded by: John Z
   
4.     '* Email: cq_box@163.com
   
5.     '* Date of done: June 11, 2013
   
6.     '************************************
   
7.     Const srcDir = "\\SourceServer\src_folder"
   
8.     Const destDir = "\\DestServer\new_folder"
   
9.     Const LogFile = "\\DestServer\Logs\Update_Log"
   
10.     Const OVERWRITE_EXISTING = True
    
11.     Const DayOfDeffer = 27
    
12.         Dim ix
    
13.    
    
14.     FileList = Array("sales_forecast_inv.txt","xback.ps1","ps_sign_help.txt","usr.vbs","up.vbs")
    
15.     DFleList = Array("inventory_list.txt","xback_1.ps1","ps_sign_help_1.txt","","up_1.vbs")
    
16. ShowText = ""
    
17.     SameText = ""
    
18.     UpText=""
    
19.     ix = 0
    
20.     Set fso = CreateObject("Scripting.FileSystemObject")
    
21. 
    
22.     For Each fn In FileList
    
23.       If (DFleList(ix)="") Then
    
24.         fnd =fn
    
25.       Else
    
26.         fnd = DFleList(ix)
    
27.       End If
    
28.       If Not fso.FileExists(DestDir & "" & fnd) Then
    
29.         If fso.FileExists(srcDir & "" & fn) Then
    
30.             Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile,8,true)
    
31.             fso.CopyFile srcDir & "" & fn, DestDir & "" & fnd, True
    
32.             objFileToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & Time & " --- copy " & DestDir & "" & fnd & " from " & srcDir & "" & fn)
    
33.             objFileToWrite.Close
    
34.             Set objFileToWrite = Nothing
    
35.         End If
    
36.       ElseIf fso.FileExists(srcDir & "" & fn) Then
    
37.         ReplaceIfNewer srcDir & "" & fn, DestDir & "" & fnd, DayOfDeffer, OVERWRITE_EXISTING
    
38.       End If
    
39.       ix = ix + 1
    
40.     Next 'fn
    
41.     'Wscript.Echo "Done."
    
42.    
    
43.     Sub ReplaceIfNewer(strSourceFile, strTargetFile, DayDiffer, OVRWrite)
    
44.         Dim objFso
    
45.         Dim objTargetFile
    
46.         Dim dtmTargetDate
    
47.         Dim objSourceFile
    
48.         Dim dtmSourceDate
    
49.         Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile,8,true)
    
50.         Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
    
51.         Set objTargetFile = objFso.GetFile(strTargetFile)
    
52.         dtmTargetDate = objTargetFile.DateLastModified
    
53.         Set objSourceFile = objFso.GetFile(strSourceFile)
    
54.         dtmSourceDate = objSourceFile.DateLastModified
    
55.         
    
56.         'Wscript.echo "Src: " & dtmSourceDate & VBCrLf & "Dst: " & dtmTargetDate & VBCrLf & "Later than: " & DateAdd("d", DayOfDeffer, dtmTargetDate )
    
57.         If ( dtmSourceDate > DateAdd("d", DayOfDeffer, dtmTargetDate )) Then
    
58.                 If objFso.FileExists(strTargetFile) Then
    
59.                     'Set objBakFile = objFso.GetFile(strTargetFile & ".bak")
    
60.                     objFso.CopyFile objTargetFile.Path, objTargetFile.Path & ".bak", OVRWrite
    
61.                     'set objBakFile = nothing
    
62.                 End If
    
63.                 objFso.CopyFile objSourceFile.Path, objTargetFile.Path, OVRWrite
    
64.                 objFileToWrite.WriteLine(Year(Date) & "-" & Month(Date) & "-"  & Day(Date) & "  " & Time & " --- update " & strTargetFile & " from " & strSourceFile)
    
65.         End If
    
66.         Set objFso = Nothing
    
67.         objFileToWrite.Close
    
68.         Set objFileToWrite = Nothing
    
69.     End Sub
    

复制代码