file append & opposite #2
Group,
I've written some VBA code to add some data to a file using something similar to: open "c:\temp\junk.txt" for append as #1 I now wish to write some code to remove this data. Example: The file starts out as 23,847 bytes and my macro makes it 23,857 bytes. What code would move the EOF up ten bytes restoring the file as it originally was? Thanks in advance, Christmas |
file append & opposite #2
One way:
Option Explicit Sub testme() Dim myFileName As String Dim myContents As String ' Dim FSO As Scripting.FileSystemObject ' Dim myFile As Scripting.TextStream ' Set FSO = New Scripting.FileSystemObject Dim FSO As Object Dim myFile As Object Set FSO = CreateObject("Scripting.FileSystemObject") myFileName = "C:\my documents\excel\test.txt" If FSO.fileexists(myFileName) = False Then MsgBox "quitting!" Exit Sub End If Set myFile = FSO.OpenTextFile(myFileName, 1, False) myContents = myFile.ReadAll myFile.Close myContents = Left(myContents, Len(myContents) - 10) Set myFile = FSO.CreateTextFile(myFileName, True) myFile.Write myContents myFile.Close End Sub Christmas May wrote: Group, I've written some VBA code to add some data to a file using something similar to: open "c:\temp\junk.txt" for append as #1 I now wish to write some code to remove this data. Example: The file starts out as 23,847 bytes and my macro makes it 23,857 bytes. What code would move the EOF up ten bytes restoring the file as it originally was? Thanks in advance, Christmas -- Dave Peterson |
All times are GMT +1. The time now is 07:35 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com