wildacard character

[Phil]

Hello again,

What could I use to perform the following.

I have a CD with data on it except its not all in one directory

eg:

E:\Pictures\021\
E:\Pictures\022\
E:\Pictures\023\
E:\Pictures\054\

The problem is that I have many CD's with at pictures with various sub
directories.
Is there a wildcard character that I could use to substitite for the folder
name?

Thanks

 

[Allen Browne]

The example below shows how to list files in a folder and subfolders:


Public Function ListFiles(strPath As String, _
Optional strFileSpec As String, _
Optional bIncludeSubfolders As Boolean)
On Error GoTo Err_Handler
'Purpose: List the files in the path.
'Arguments: strPath = the path to search.
' strFileSpec = "*.*" unless you specify differently.
' bIncludeSubfolders: If True, returns results from
subdirectories of strPath as well.
'Method: FilDir() adds items to a collection, calling itself
recursively for subfolders.
Dim colDirList As New Collection
Dim vItem As Variant

Call FillDir(colDirList, strPath, strFileSpec, bIncludeSubfolders)

'List the items. (Or, you could add them to a list box.)
For Each vItem In colDirList
Debug.Print vItem
Next

Exit_Handler:
Exit Function

Err_Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_Handler
End Function

Private Function FillDir(colDirList As Collection, _
ByVal strFolder As String, _
strFileSpec As String, _
bIncludeSubfolders As Boolean)
'Build up a list of files, and then add add to this list, any additional
folders
Dim strTemp As String
Dim colFolders As New Collection
Dim vFolderName As Variant

'Add the files to the folder.
strFolder = TrailingSlash(strFolder)
strTemp = Dir(strFolder & strFileSpec)
Do While strTemp <> vbNullString
colDirList.Add strFolder & strTemp
strTemp = Dir
Loop

If bIncludeSubfolders Then
'Build collection of additional subfolders.
strTemp = Dir(strFolder, vbDirectory)
Do While strTemp <> vbNullString
If (strTemp <> ".") And (strTemp <> "..") Then
If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0& Then
colFolders.Add strTemp
End If
End If
strTemp = Dir
Loop
'Call function recursively for each subfolder.
For Each vFolderName In colFolders
Call FillDir(colDirList, strFolder & TrailingSlash(vFolderName),
strFileSpec, True)
Next vFolderName
End If
End Function

Private Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function

 

[Phil]

Hi Allen,

I am not sure if this is what I need. U see I have a form created that
basically displays a staff picture from a CD.

The code that I have entered in the on current in the form properties is:

Private Sub Form_Current()


If Dir("c:\" & Me![driver_rec] & ".jpg") = "" Then

Me![ImageFrame].Picture = "c:\NoImage.jpg"
MsgBox "Picture doesn't exist for this User!!!"
Else
Me![ImageFrame].Picture = "e:\" & Me![driver_rec] & ".jpg"
End If

End Sub

so basically what i need is for the image to open when the picture is found.
except the record is located in a subfolder and I do not know the name as
they are scanned by an external company and it is different on each CD.

I would be delighted if a simple solution exists

Thanks

 

[Allen Browne]

There probably is a simple solution.

But there might need to be some kind of consistent way of identifying folder
and file name for any particular record, so you know what picture needs to
be shown.

Your example suggests that the field named [driver_rec] contains the file
name, but your original post implies that the folder is unknown.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

I am not sure if this is what I need. U see I have a form created that
basically displays a staff picture from a CD.

The code that I have entered in the on current in the form properties is:

Private Sub Form_Current()


If Dir("c:\" & Me![driver_rec] & ".jpg") = "" Then

Me![ImageFrame].Picture = "c:\NoImage.jpg"
MsgBox "Picture doesn't exist for this User!!!"
Else
Me![ImageFrame].Picture = "e:\" & Me![driver_rec] & ".jpg"
End If

End Sub

so basically what i need is for the image to open when the picture is
found.
except the record is located in a subfolder and I do not know the name as
they are scanned by an external company and it is different on each CD.

I would be delighted if a simple solution exists

Thanks

--
Phil

The example below shows how to list files in a folder and subfolders:


Public Function ListFiles(strPath As String, _
Optional strFileSpec As String, _
Optional bIncludeSubfolders As Boolean)
On Error GoTo Err_Handler
'Purpose: List the files in the path.
'Arguments: strPath = the path to search.
' strFileSpec = "*.*" unless you specify differently.
' bIncludeSubfolders: If True, returns results from
subdirectories of strPath as well.
'Method: FilDir() adds items to a collection, calling itself
recursively for subfolders.
Dim colDirList As New Collection
Dim vItem As Variant

Call FillDir(colDirList, strPath, strFileSpec, bIncludeSubfolders)

'List the items. (Or, you could add them to a list box.)
For Each vItem In colDirList
Debug.Print vItem
Next

Exit_Handler:
Exit Function

Err_Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_Handler
End Function

Private Function FillDir(colDirList As Collection, _
ByVal strFolder As String, _
strFileSpec As String, _
bIncludeSubfolders As Boolean)
'Build up a list of files, and then add add to this list, any
additional
folders
Dim strTemp As String
Dim colFolders As New Collection
Dim vFolderName As Variant

'Add the files to the folder.
strFolder = TrailingSlash(strFolder)
strTemp = Dir(strFolder & strFileSpec)
Do While strTemp <> vbNullString
colDirList.Add strFolder & strTemp
strTemp = Dir
Loop

If bIncludeSubfolders Then
'Build collection of additional subfolders.
strTemp = Dir(strFolder, vbDirectory)
Do While strTemp <> vbNullString
If (strTemp <> ".") And (strTemp <> "..") Then
If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0&
Then
colFolders.Add strTemp
End If
End If
strTemp = Dir
Loop
'Call function recursively for each subfolder.
For Each vFolderName In colFolders
Call FillDir(colDirList, strFolder &
TrailingSlash(vFolderName),
strFileSpec, True)
Next vFolderName
End If
End Function

Private Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function

 

[Phil]

Hi Allen,

yeah the picture name is known but the sub folder is not known(sorry if I
was unclear). So what I would like is to browse the CD to fine the file name
required.
Would you know how I can do this??

Thanks for your help!
--
Phil

There probably is a simple solution.

But there might need to be some kind of consistent way of identifying folder
and file name for any particular record, so you know what picture needs to
be shown.

Your example suggests that the field named [driver_rec] contains the file
name, but your original post implies that the folder is unknown.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

I am not sure if this is what I need. U see I have a form created that
basically displays a staff picture from a CD.

The code that I have entered in the on current in the form properties is:

Private Sub Form_Current()


If Dir("c:\" & Me![driver_rec] & ".jpg") = "" Then

Me![ImageFrame].Picture = "c:\NoImage.jpg"
MsgBox "Picture doesn't exist for this User!!!"
Else
Me![ImageFrame].Picture = "e:\" & Me![driver_rec] & ".jpg"
End If

End Sub

so basically what i need is for the image to open when the picture is
found.
except the record is located in a subfolder and I do not know the name as
they are scanned by an external company and it is different on each CD.

I would be delighted if a simple solution exists

Thanks

--
Phil

The example below shows how to list files in a folder and subfolders:


Public Function ListFiles(strPath As String, _
Optional strFileSpec As String, _
Optional bIncludeSubfolders As Boolean)
On Error GoTo Err_Handler
'Purpose: List the files in the path.
'Arguments: strPath = the path to search.
' strFileSpec = "*.*" unless you specify differently.
' bIncludeSubfolders: If True, returns results from
subdirectories of strPath as well.
'Method: FilDir() adds items to a collection, calling itself
recursively for subfolders.
Dim colDirList As New Collection
Dim vItem As Variant

Call FillDir(colDirList, strPath, strFileSpec, bIncludeSubfolders)

'List the items. (Or, you could add them to a list box.)
For Each vItem In colDirList
Debug.Print vItem
Next

Exit_Handler:
Exit Function

Err_Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_Handler
End Function

Private Function FillDir(colDirList As Collection, _
ByVal strFolder As String, _
strFileSpec As String, _
bIncludeSubfolders As Boolean)
'Build up a list of files, and then add add to this list, any
additional
folders
Dim strTemp As String
Dim colFolders As New Collection
Dim vFolderName As Variant

'Add the files to the folder.
strFolder = TrailingSlash(strFolder)
strTemp = Dir(strFolder & strFileSpec)
Do While strTemp <> vbNullString
colDirList.Add strFolder & strTemp
strTemp = Dir
Loop

If bIncludeSubfolders Then
'Build collection of additional subfolders.
strTemp = Dir(strFolder, vbDirectory)
Do While strTemp <> vbNullString
If (strTemp <> ".") And (strTemp <> "..") Then
If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0&
Then
colFolders.Add strTemp
End If
End If
strTemp = Dir
Loop
'Call function recursively for each subfolder.
For Each vFolderName In colFolders
Call FillDir(colDirList, strFolder &
TrailingSlash(vFolderName),
strFileSpec, True)
Next vFolderName
End If
End Function

Private Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

Hello again,

What could I use to perform the following.

I have a CD with data on it except its not all in one directory

eg:

E:\Pictures\021\
E:\Pictures\022\
E:\Pictures\023\
E:\Pictures\054\

The problem is that I have many CD's with at pictures with various sub
directories.
Is there a wildcard character that I could use to substitite for the
folder
name?

 

[Allen Browne]

The code I posted previously illustrates how to browse a folder and
subfolders.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

Hi Allen,

yeah the picture name is known but the sub folder is not known(sorry if I
was unclear). So what I would like is to browse the CD to fine the file
name
required.
Would you know how I can do this??

Thanks for your help!
--
Phil

There probably is a simple solution.

But there might need to be some kind of consistent way of identifying
folder
and file name for any particular record, so you know what picture needs
to
be shown.

Your example suggests that the field named [driver_rec] contains the file
name, but your original post implies that the folder is unknown.

I am not sure if this is what I need. U see I have a form created that
basically displays a staff picture from a CD.

The code that I have entered in the on current in the form properties
is:

Private Sub Form_Current()


If Dir("c:\" & Me![driver_rec] & ".jpg") = "" Then

Me![ImageFrame].Picture = "c:\NoImage.jpg"
MsgBox "Picture doesn't exist for this User!!!"
Else
Me![ImageFrame].Picture = "e:\" & Me![driver_rec] & ".jpg"
End If

End Sub

so basically what i need is for the image to open when the picture is
found.
except the record is located in a subfolder and I do not know the name
as
they are scanned by an external company and it is different on each CD.

I would be delighted if a simple solution exists

Thanks

--
Phil


:

The example below shows how to list files in a folder and subfolders:


Public Function ListFiles(strPath As String, _
Optional strFileSpec As String, _
Optional bIncludeSubfolders As Boolean)
On Error GoTo Err_Handler
'Purpose: List the files in the path.
'Arguments: strPath = the path to search.
' strFileSpec = "*.*" unless you specify differently.
' bIncludeSubfolders: If True, returns results from
subdirectories of strPath as well.
'Method: FilDir() adds items to a collection, calling itself
recursively for subfolders.
Dim colDirList As New Collection
Dim vItem As Variant

Call FillDir(colDirList, strPath, strFileSpec, bIncludeSubfolders)

'List the items. (Or, you could add them to a list box.)
For Each vItem In colDirList
Debug.Print vItem
Next

Exit_Handler:
Exit Function

Err_Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_Handler
End Function

Private Function FillDir(colDirList As Collection, _
ByVal strFolder As String, _
strFileSpec As String, _
bIncludeSubfolders As Boolean)
'Build up a list of files, and then add add to this list, any
additional
folders
Dim strTemp As String
Dim colFolders As New Collection
Dim vFolderName As Variant

'Add the files to the folder.
strFolder = TrailingSlash(strFolder)
strTemp = Dir(strFolder & strFileSpec)
Do While strTemp <> vbNullString
colDirList.Add strFolder & strTemp
strTemp = Dir
Loop

If bIncludeSubfolders Then
'Build collection of additional subfolders.
strTemp = Dir(strFolder, vbDirectory)
Do While strTemp <> vbNullString
If (strTemp <> ".") And (strTemp <> "..") Then
If (GetAttr(strFolder & strTemp) And vbDirectory) <>
0&
Then
colFolders.Add strTemp
End If
End If
strTemp = Dir
Loop
'Call function recursively for each subfolder.
For Each vFolderName In colFolders
Call FillDir(colDirList, strFolder &
TrailingSlash(vFolderName),
strFileSpec, True)
Next vFolderName
End If
End Function

Private Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function

Hello again,

What could I use to perform the following.

I have a CD with data on it except its not all in one directory

eg:

E:\Pictures\021\
E:\Pictures\022\
E:\Pictures\023\
E:\Pictures\054\

The problem is that I have many CD's with at pictures with various
sub
directories.
Is there a wildcard character that I could use to substitite for the
folder
name?

 

[Phil]

Hi Allen,

How would I incorporate the code into the bit that I have already. The
output of the code that you provided lists the files. I do not have much
programming experience in this area and would greatly appreciate any help at
all possible.

Thanks
--
Phil

The code I posted previously illustrates how to browse a folder and
subfolders.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

Hi Allen,

yeah the picture name is known but the sub folder is not known(sorry if I
was unclear). So what I would like is to browse the CD to fine the file
name
required.
Would you know how I can do this??

Thanks for your help!
--
Phil

There probably is a simple solution.

But there might need to be some kind of consistent way of identifying
folder
and file name for any particular record, so you know what picture needs
to
be shown.

Your example suggests that the field named [driver_rec] contains the file
name, but your original post implies that the folder is unknown.


I am not sure if this is what I need. U see I have a form created that
basically displays a staff picture from a CD.

The code that I have entered in the on current in the form properties
is:

Private Sub Form_Current()


If Dir("c:\" & Me![driver_rec] & ".jpg") = "" Then

Me![ImageFrame].Picture = "c:\NoImage.jpg"
MsgBox "Picture doesn't exist for this User!!!"
Else
Me![ImageFrame].Picture = "e:\" & Me![driver_rec] & ".jpg"
End If

End Sub

so basically what i need is for the image to open when the picture is
found.
except the record is located in a subfolder and I do not know the name
as
they are scanned by an external company and it is different on each CD.

I would be delighted if a simple solution exists

Thanks

--
Phil


:

The example below shows how to list files in a folder and subfolders:


Public Function ListFiles(strPath As String, _
Optional strFileSpec As String, _
Optional bIncludeSubfolders As Boolean)
On Error GoTo Err_Handler
'Purpose: List the files in the path.
'Arguments: strPath = the path to search.
' strFileSpec = "*.*" unless you specify differently.
' bIncludeSubfolders: If True, returns results from
subdirectories of strPath as well.
'Method: FilDir() adds items to a collection, calling itself
recursively for subfolders.
Dim colDirList As New Collection
Dim vItem As Variant

Call FillDir(colDirList, strPath, strFileSpec, bIncludeSubfolders)

'List the items. (Or, you could add them to a list box.)
For Each vItem In colDirList
Debug.Print vItem
Next

Exit_Handler:
Exit Function

Err_Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_Handler
End Function

Private Function FillDir(colDirList As Collection, _
ByVal strFolder As String, _
strFileSpec As String, _
bIncludeSubfolders As Boolean)
'Build up a list of files, and then add add to this list, any
additional
folders
Dim strTemp As String
Dim colFolders As New Collection
Dim vFolderName As Variant

'Add the files to the folder.
strFolder = TrailingSlash(strFolder)
strTemp = Dir(strFolder & strFileSpec)
Do While strTemp <> vbNullString
colDirList.Add strFolder & strTemp
strTemp = Dir
Loop

If bIncludeSubfolders Then
'Build collection of additional subfolders.
strTemp = Dir(strFolder, vbDirectory)
Do While strTemp <> vbNullString
If (strTemp <> ".") And (strTemp <> "..") Then
If (GetAttr(strFolder & strTemp) And vbDirectory) <>
0&
Then
colFolders.Add strTemp
End If
End If
strTemp = Dir
Loop
'Call function recursively for each subfolder.
For Each vFolderName In colFolders
Call FillDir(colDirList, strFolder &
TrailingSlash(vFolderName),
strFileSpec, True)
Next vFolderName
End If
End Function

Private Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function

Hello again,

What could I use to perform the following.

I have a CD with data on it except its not all in one directory

eg:

E:\Pictures\021\
E:\Pictures\022\
E:\Pictures\023\
E:\Pictures\054\

The problem is that I have many CD's with at pictures with various
sub
directories.
Is there a wildcard character that I could use to substitite for the
folder
name?

 

[Allen Browne]

That's a bigger question that we can deal with in a newsgroup post.

You will need to digest how the Dir function works to understand how to get
the file names and folder names. It is relatively straightforward, and
hopefully the examples of workable code help.

The FillDir code that calls itself recursively is not straightforward, so
you might be better to ignore that one.

If you know what file name you want, and you can use Dir() to determine what
folders there are, here's one more example you could use to determine if a
file exists:
FileExists() and FolderExists()
at:
http://allenbrowne.com/func-11.html

That's probably as much as I can give you here.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

Hi Allen,

How would I incorporate the code into the bit that I have already. The
output of the code that you provided lists the files. I do not have much
programming experience in this area and would greatly appreciate any help
at
all possible.

Thanks
--
Phil

The code I posted previously illustrates how to browse a folder and
subfolders.

Hi Allen,

yeah the picture name is known but the sub folder is not known(sorry if
I
was unclear). So what I would like is to browse the CD to fine the file
name
required.
Would you know how I can do this??

Thanks for your help!
--
Phil


:

There probably is a simple solution.

But there might need to be some kind of consistent way of identifying
folder
and file name for any particular record, so you know what picture
needs
to
be shown.

Your example suggests that the field named [driver_rec] contains the
file
name, but your original post implies that the folder is unknown.


I am not sure if this is what I need. U see I have a form created
that
basically displays a staff picture from a CD.

The code that I have entered in the on current in the form
properties
is:

Private Sub Form_Current()


If Dir("c:\" & Me![driver_rec] & ".jpg") = "" Then

Me![ImageFrame].Picture = "c:\NoImage.jpg"
MsgBox "Picture doesn't exist for this User!!!"
Else
Me![ImageFrame].Picture = "e:\" & Me![driver_rec] & ".jpg"
End If

End Sub

so basically what i need is for the image to open when the picture
is
found.
except the record is located in a subfolder and I do not know the
name
as
they are scanned by an external company and it is different on each
CD.

I would be delighted if a simple solution exists

Thanks

--
Phil


:

The example below shows how to list files in a folder and
subfolders:


Public Function ListFiles(strPath As String, _
Optional strFileSpec As String, _
Optional bIncludeSubfolders As Boolean)
On Error GoTo Err_Handler
'Purpose: List the files in the path.
'Arguments: strPath = the path to search.
' strFileSpec = "*.*" unless you specify differently.
' bIncludeSubfolders: If True, returns results from
subdirectories of strPath as well.
'Method: FilDir() adds items to a collection, calling itself
recursively for subfolders.
Dim colDirList As New Collection
Dim vItem As Variant

Call FillDir(colDirList, strPath, strFileSpec,
bIncludeSubfolders)

'List the items. (Or, you could add them to a list box.)
For Each vItem In colDirList
Debug.Print vItem
Next

Exit_Handler:
Exit Function

Err_Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_Handler
End Function

Private Function FillDir(colDirList As Collection, _
ByVal strFolder As String, _
strFileSpec As String, _
bIncludeSubfolders As Boolean)
'Build up a list of files, and then add add to this list, any
additional
folders
Dim strTemp As String
Dim colFolders As New Collection
Dim vFolderName As Variant

'Add the files to the folder.
strFolder = TrailingSlash(strFolder)
strTemp = Dir(strFolder & strFileSpec)
Do While strTemp <> vbNullString
colDirList.Add strFolder & strTemp
strTemp = Dir
Loop

If bIncludeSubfolders Then
'Build collection of additional subfolders.
strTemp = Dir(strFolder, vbDirectory)
Do While strTemp <> vbNullString
If (strTemp <> ".") And (strTemp <> "..") Then
If (GetAttr(strFolder & strTemp) And vbDirectory)
<>
0&
Then
colFolders.Add strTemp
End If
End If
strTemp = Dir
Loop
'Call function recursively for each subfolder.
For Each vFolderName In colFolders
Call FillDir(colDirList, strFolder &
TrailingSlash(vFolderName),
strFileSpec, True)
Next vFolderName
End If
End Function

Private Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function

Hello again,

What could I use to perform the following.

I have a CD with data on it except its not all in one directory

eg:

E:\Pictures\021\
E:\Pictures\022\
E:\Pictures\023\
E:\Pictures\054\

The problem is that I have many CD's with at pictures with
various
sub
directories.
Is there a wildcard character that I could use to substitite for
the
folder
name?

 

[jahoobob via AccessMonster.com]

Why not copy all the pictures to a server in one folder. No problems.
Another option is to copy the pictures to a data DVD if you don't have room
on the server. I don't see how you get by the problem of which CD to have in
the drive to get the asked for picture.
Why did the contractor put the pictures in different sub directories on the
CD? Is there a meaning for 021, 022, etc. like department or alphbetical
sorting? If there is then that could be incorporated in your criteria for
getting the pic. e.g. the person works in HR and all of HR pictures are in
022. You could put this data in a table to use in your lookup.

 

[Phil]

Hi, thaks for the reply.
I have no access to an internal/external DVD and no space on the server. We
were going to put in an extra column to indicate which CD the data is on - it
would mean a bit of extra work at the beginning but it would be worthwhile in
the long run.

The pictures were sent in batches so I think that when they are scanned a
new sub folder is automatically created.(would have to confirm though). The
numbers have no particular meaning to us.

I am trying to figure out the correct code at the moment.
Sure it works very well without the sub folders!!!

Thanks again for your suggestions

 

[eos]

AUTO-REPLY From George Levitt

Please allow this to confirm a system receipt of your e-mail.

I am out of the office until Wednesday morning (1/12/05) and will not be
reviewing or responding to email or voicemail until that time.

I look forward to replying to your message on Wednesday.

Thanks and warmest regards, George

 

[eos]

AUTO-REPLY From George Levitt

Please allow this to confirm a system receipt of your e-mail.

I am out of the office until Wednesday morning (1/12/05) and will not be
reviewing or responding to email or voicemail until that time.

I look forward to replying to your message on Wednesday.

Thanks and warmest regards, George

 

[eos]

AUTO-REPLY From George Levitt

Please allow this to confirm a system receipt of your e-mail.

I am out of the office until Wednesday morning (1/12/05) and will not be
reviewing or responding to email or voicemail until that time.

I look forward to replying to your message on Wednesday.

Thanks and warmest regards, George

 

[eos]

AUTO-REPLY From George Levitt

Please allow this to confirm a system receipt of your e-mail.

I am out of the office until Wednesday morning (1/12/05) and will not be
reviewing or responding to email or voicemail until that time.

I look forward to replying to your message on Wednesday.

Thanks and warmest regards, George