Solved

How to iterate through files in VB Script, opening each one for reading

Posted on 2008-10-02
3
1,394 Views
Last Modified: 2008-10-03
At Line 18 I read in all of the files in a directory into a collection called 'FileNames'  I then try to iterate through all F in FileNames.  I get an error on Line 25 because "F does not support .AtEndOfStream.  I think I'm just slightly off syntactically, but how can I iterate through this collection of files, opening each one for reading as I go?


dim FileSys
 
DirName = "C:\BackupVerify\" 
 
Set FileSys = CreateObject("Scripting.FileSystemObject")
 
'if the C:\BackupVerify directory does not exist, create it
If Not FileSys.FolderExists(DirName) Then
Set CreatedDir = FileSys.CreateFolder(DirName)
End If
 
'------------------------------------------------------------
 
'iterate through all files in the C:\BackupVerify directory
 
Set FileRetriever = FileSys.GetFolder(DirName)
Set FileNames = FileRetriever.Files
 
For Each F in FileNames
 
Dim FileContents()
i = 0
 
'read the contents of each file into an array
Do Until F.AtEndOfStream
Redim Preserve FileContents(i)
FileContents(i) = F.ReadLine
i = i + 1
Loop
F.Close
 
'look at the date from the file
Set PrevDate = FileContents(0)
 
'look at the current date
Set CurrDate = Date()
 
'calcualte the difference between the two dates in number of days
Set Date_Diff = DateDiff("d" , CurrDate , PrevDate )
 
'if the backup test file is older than 180 days, delete it
If Date_Diff > 180 Then
	FileSys.DeleteFile(DirName & "BackupVerify" & PrevDate & ".txt")
	End If
 
Next 
 
'-----------------------------------------------------------
 
DateStamp = FormatDateTime(Date(),1)
TimeStamp = Time()
 
FileName = DirName & "BackupVerify" & DateStamp & ".txt"
WScript.echo filename
Set FileWriter = FileSys.CreateTextFile(FileName, True)
 
FileWriter.WriteLine(DateStamp)
FileWriter.WriteLine(TimeStamp)
 
FileWriter.Close
 
'WRITE TO ERROR LOG IF FILE

Open in new window

0
Comment
Question by:jkovba
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 67

Accepted Solution

by:
sirbounty earned 100 total points
ID: 22629114
You don't need that - it's for reading an input file...or if you're trying to open each file...
dim FileSys
 
DirName = "C:\BackupVerify\" 
 
Set FileSys = CreateObject("Scripting.FileSystemObject")
 
'if the C:\BackupVerify directory does not exist, create it
If Not FileSys.FolderExists(DirName) Then
Set CreatedDir = FileSys.CreateFolder(DirName)
End If
 
'------------------------------------------------------------
 
'iterate through all files in the C:\BackupVerify directory
 
Set FileRetriever = FileSys.GetFolder(DirName)
Set FileNames = FileRetriever.Files
 
For Each F in FileNames
 
Dim FileContents()
i = 0
 
'read the contents of each file into an array
Dim objFile : Set objFile = FileSys.OpenTextFile(F)
Do Until objFile.AtEndOfStream
  Redim Preserve FileContents(i)
  FileContents(i) = F.ReadLine
  i = i + 1
Loop
objFile.Close
 
'look at the date from the file
Set PrevDate = FileContents(0)
 
'look at the current date
Set CurrDate = Date()
 
'calcualte the difference between the two dates in number of days
Set Date_Diff = DateDiff("d" , CurrDate , PrevDate )
 
'if the backup test file is older than 180 days, delete it
If Date_Diff > 180 Then
        FileSys.DeleteFile(DirName & "BackupVerify" & PrevDate & ".txt")
        End If
 
Next 
 
'-----------------------------------------------------------
 
DateStamp = FormatDateTime(Date(),1)
TimeStamp = Time()
 
FileName = DirName & "BackupVerify" & DateStamp & ".txt"
WScript.echo filename
Set FileWriter = FileSys.CreateTextFile(FileName, True)
 
FileWriter.WriteLine(DateStamp)
FileWriter.WriteLine(TimeStamp)
 
FileWriter.Close
 
'WRITE TO ERROR LOG IF FILE

Open in new window

0
 
LVL 9

Expert Comment

by:gregcmcse
ID: 22636046
The only addition I'd make to SirBounty's code is a much easier way of handling the array (and should execute MUCH faster).  Use the split function to create an array with each line in its own element in one shot as below.  REDIM PRESERVE is horrifically expensive in terms of execution cycles.

Note:  You MAY get an error on the split due to line 21.  If you do, change the line:

Dim FileContents()
  to
Dim FileContents

or just delete it entirely.
strTemp = ""
Do Until objFile.AtEndOfStream
  strTemp = F.ReadAll
Loop
FileContents = Split(strTemp,vbCrLf)
 
  

Open in new window

0
 

Author Comment

by:jkovba
ID: 22637927
Thank you SirBounty for the precise solution, and thanks also to gregmcse for a great suggestion to improve performance.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
randomize data from excell cell 15 57
Button function on table is in trouble 3 41
Modify file details 1 31
Excel formula to report date modified 14 52
Welcome back!  My apologies for taking so long to write part two of this series; it's been a long time coming!  As I promised in Part 1, this article will focus on how to locate those elusive AD properties that you are searching for.  Why is this us…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial
This video shows how to use Hyena, from SystemTools Software, to update 100 user accounts from an external text file. View in 1080p for best video quality.

751 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question