VBScript Quest about obj.TextFile.SaveAs 1

[chiplarsen]

I am trying to do something that I am sure is simple, but I have not work with VBScript much at all. I want to open a text file in one directory and save as to another directory with a new name. When I run this code from a cmd prompt, I do not get an error, it just executes and does nothing in reference to the code. Can someone point me in the right direction? Thank you for your help.

 On Error Resume Next

  strMonth=Month(DateAdd("d",-1,Date))
  If Trim(Len(strMonth))<2 Then strMonth="0"&strMonth End If

  strDay=Day(DateAdd("d",-1,Date))
  If Trim(Len(strDay))<2 Then strDay="0"&strDay End If

  strFileNameExt=Year(DateAdd("d",-1,Date))&strMonth&strDay

'***** Open Text File *****
  Const ForWriting = 2
  Set objFSO = OpenObject("Scripting.FileSystemObject")
  Set objTextFile = objFSO.OpenTextFile ("C:\PERSELOG\PERSE.TXT")
'*****

'***** Save/close TXT File *****
 objTextFile.SaveAs("C:\PERSELOG\PERSEBK\PERSE-"&strFileNameExt&".TXT")  
 Set objTextFile=Close
'*****

 

[foxbox]

With ASP you can do this:

<% 
    set fso = CreateObject("Scripting.FileSystemObject") 
    fso.MoveFile "c:\oldname.txt", "c:\newname.txt" 
    set fso = Nothing 
%>

 

[guitarzan]

When I run this code from a cmd prompt, I do not get an error, it just executes and does nothing in reference to the code.

Remove the "On Error Resume Next" line!

That line suppresses all errors without trapping, or even displaying them. The only valid use for "On Error Resume Next" is to error trap a line of code, which should then be immediately followed with "On Error Goto 0" to allow errors to be thrown again. For example:

On Error Resume Next
[i]do something[/i]
If Err.Number <> 0 Then
   'handle error
End If
On Error Goto 0