Hi,

I am trying to cycle through a series of files in a folder and if the
filename does not meet my criteria, then I want to add the filename to
my array. This is my loop. How do I add the filename to my array?

Sub ParseTextFiles()

Dim MyFile As String
Dim FSO As FileSystemObject
Dim MyFolder As Object
Dim ObjFile As Object
Dim colFiles As Object
Dim MyParsedMessage() As String
Dim MyParsedDate As String



MyFile = "Z:\Drop Box\robin.tanner\FortexRejects"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = FSO.GetFolder(MyFile)
Set colFiles = MyFolder.Files

For Each ObjFile In colFiles
MyParsedDate =
Application.WorksheetFunction.Substitute(Left(ObjF ile.Name, 10), ".",
"/")
If Not IsDate(MyParsedDate) Then
MyParsedMessage(i) = ObjFile.Name
End If
Next

MsgBox MyParsedMessage(1:i)


End Sub

You need a dynamic array. This is untested but it sould be close. I
personally would have used a collection of file objects but to each his own...

Sub ParseTextFiles()

Dim MyFile As String
Dim FSO As FileSystemObject
Dim MyFolder As Object
Dim ObjFile As Object
Dim colFiles As Object
Dim MyParsedMessage() As String
Dim MyParsedDate As String
Dim lng as long

MyFile = "Z:\Drop Box\robin.tanner\FortexRejects"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = FSO.GetFolder(MyFile)
Set colFiles = MyFolder.Files

For Each ObjFile In colFiles
MyParsedDate =
Application.WorksheetFunction.Substitute(Left(ObjF ile.Name, 10), ".",
"/")
If Not IsDate(MyParsedDate) Then
Redim Preserve MyParsedMessage(lng)
MyParsedMessage(lng) = ObjFile.Name
lng = lng + 1
End If
Next

for lng = lbound(MyParsedMessage) to ubound(MyParsedMessage)
MsgBox MyParsedMessage(1:i)
next lng
End Sub

--
HTH...

Jim Thomlinson


"R Tanner" wrote:

Hi,

I am trying to cycle through a series of files in a folder and if the
filename does not meet my criteria, then I want to add the filename to
my array. This is my loop. How do I add the filename to my array?

Sub ParseTextFiles()

Dim MyFile As String
Dim FSO As FileSystemObject
Dim MyFolder As Object
Dim ObjFile As Object
Dim colFiles As Object
Dim MyParsedMessage() As String
Dim MyParsedDate As String



MyFile = "Z:\Drop Box\robin.tanner\FortexRejects"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = FSO.GetFolder(MyFile)
Set colFiles = MyFolder.Files

For Each ObjFile In colFiles
MyParsedDate =
Application.WorksheetFunction.Substitute(Left(ObjF ile.Name, 10), ".",
"/")
If Not IsDate(MyParsedDate) Then
MyParsedMessage(i) = ObjFile.Name
End If
Next

MsgBox MyParsedMessage(1:i)


End Sub

On Sep 29, 3:01*pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
You need a dynamic array. This is untested but it sould be close. I
personally would have used a collection of file objects but to each his own...

Sub ParseTextFiles()

Dim MyFile As String
Dim FSO As FileSystemObject
Dim MyFolder As Object
Dim ObjFile As Object
Dim colFiles As Object
Dim MyParsedMessage() As String
Dim MyParsedDate As String
Dim lng as long

MyFile = "Z:\Drop Box\robin.tanner\FortexRejects"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = FSO.GetFolder(MyFile)
Set colFiles = MyFolder.Files

For Each ObjFile In colFiles
* * MyParsedDate =
Application.WorksheetFunction.Substitute(Left(ObjF ile.Name, 10), ".",
"/")
* * If Not IsDate(MyParsedDate) Then
* * * * Redim Preserve MyParsedMessage(lng)
* * * * MyParsedMessage(lng) = ObjFile.Name
* * * * lng = lng + 1
* * End If
Next

for lng = lbound(MyParsedMessage) to ubound(MyParsedMessage)
* MsgBox MyParsedMessage(1:i)
next lng
End Sub

--
HTH...

Jim Thomlinson



"R Tanner" wrote:
Hi,

I am trying to cycle through a series of files in a folder and if the
filename does not meet my criteria, then I want to add the filename to
my array. *This is my loop. *How do I add the filename to my array?

Sub ParseTextFiles()

Dim MyFile As String
Dim FSO As FileSystemObject
Dim MyFolder As Object
Dim ObjFile As Object
Dim colFiles As Object
Dim MyParsedMessage() As String
Dim MyParsedDate As String

MyFile = "Z:\Drop Box\robin.tanner\FortexRejects"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = FSO.GetFolder(MyFile)
Set colFiles = MyFolder.Files

For Each ObjFile In colFiles
* * MyParsedDate =
Application.WorksheetFunction.Substitute(Left(ObjF ile.Name, 10), ".",
"/")
* * If Not IsDate(MyParsedDate) Then
* * * * MyParsedMessage(i) = ObjFile.Name
* * End If
Next

MsgBox MyParsedMessage(1:i)

End Sub- Hide quoted text -

- Show quoted text -

oh I am more than open to suggestions Jim. I am just using what I
know. Please, tell me why a collection of file objects would be
better in your opinion...

Thank you for the fix by the way.