File Structure

[Peter]

Hi
I'm looking for a way to extract a file name and file create date and then
replace them after modifying them.
I'd be grateful for any help.
Peter
To err is human but it takes a computer to really mess things up!

[James L Hill]

Use the FileSystemObject to gain access to files and their properties.

Dim objFSO As New FileSystemObject
Dim objFolder As Folder
Dim objFile As File
Set objFolder = objFSO.GetFolder(sFilePath)
For Each objFile In objFolder.Files
sFileName = objFile.Name
dCreateDate = objFile.DateCreated
dModifiedDate = objFile.ModifiedDate
Next

NOTE: The file dates are read-only properties.
"Peter" <ga*****@SPAMblueyonder.co.uk> wrote in message
news:w4**************@fe3.news.blueyonder.co.uk...

Hi
I'm looking for a way to extract a file name and file create date and then
replace them after modifying them.
I'd be grateful for any help.
Peter
To err is human but it takes a computer to really mess things up!

[Peter]

Many thanks, I'll start playing when I get a minute.
Pity about the dates - is there any way to modify these?

Peter
To err is human but it takes a computer to really mess things up!

"James L Hill" <ja**********@verizon.net> wrote in message
news:gkCMd.6364$Dc.5137@trnddc06...

Use the FileSystemObject to gain access to files and their properties.

Dim objFSO As New FileSystemObject
Dim objFolder As Folder
Dim objFile As File
Set objFolder = objFSO.GetFolder(sFilePath)
For Each objFile In objFolder.Files
sFileName = objFile.Name
dCreateDate = objFile.DateCreated
dModifiedDate = objFile.ModifiedDate
Next

NOTE: The file dates are read-only properties.
"Peter" <ga*****@SPAMblueyonder.co.uk> wrote in message
news:w4**************@fe3.news.blueyonder.co.uk...

Hi
I'm looking for a way to extract a file name and file create date and
then
replace them after modifying them.
I'd be grateful for any help.
Peter
To err is human but it takes a computer to really mess things up!

[Rick Rothstein]

> Pity about the dates - is there any way to modify these?

http://vbnet.mvps.org/code/fileapi/filedatetime.htm

Rick - MVP

[Peter]

Many thanks (I think!).
As a dabbler in Vb (but not in programming, I wrote my first program back in
1968 in a nice air conditioned room!)
I can see I'm going to have some fun.

Peter

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:Xo********************@comcast.com...

Pity about the dates - is there any way to modify these?

http://vbnet.mvps.org/code/fileapi/filedatetime.htm

Rick - MVP

[Rick Rothstein]

> Many thanks (I think!).

As a dabbler in Vb (but not in programming, I wrote my first program back in 1968 in a nice air conditioned room!)
I can see I'm going to have some fun.

Sorry for the ugliness of the API solution I referred you to; however,
as James pointed out, VB does not have direct write access to the dates,
so the only solution is to use API functions.

Rick - MVP

[Peter]

No problem. It will force me to get to grips with API.
Another question has occurred to me now. I can see how to display a list of
folders and select one. Can I access the contents so that I can get all the
file names in an array?

Sorry about all the individual questions

Peter

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:8_********************@comcast.com...

Many thanks (I think!).
As a dabbler in Vb (but not in programming, I wrote my first program

back in

1968 in a nice air conditioned room!)
I can see I'm going to have some fun.

Sorry for the ugliness of the API solution I referred you to; however,
as James pointed out, VB does not have direct write access to the dates,
so the only solution is to use API functions.

Rick - MVP

[Spanner]

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "C:\Temp"

Set objFolder = objFSO.GetFolder(strFolder)
Set objFiles = objFolder.Files

For Each objFile in objFiles
MsgBox objFile.Name
Next
Peter wrote:

No problem. It will force me to get to grips with API.
Another question has occurred to me now. I can see how to display a list of
folders and select one. Can I access the contents so that I can get all the
file names in an array?

Sorry about all the individual questions

Peter

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:8_********************@comcast.com...

Many thanks (I think!).
As a dabbler in Vb (but not in programming, I wrote my first program

back in

1968 in a nice air conditioned room!)
I can see I'm going to have some fun.

Sorry for the ugliness of the API solution I referred you to; however,
as James pointed out, VB does not have direct write access to the dates,
so the only solution is to use API functions.

Rick - MVP

[Peter]

Thanks

Peter

"Spanner" <no******@no.email.com> wrote in message
news:hz********************@news-server.bigpond.net.au...

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "C:\Temp"

Set objFolder = objFSO.GetFolder(strFolder)
Set objFiles = objFolder.Files

For Each objFile in objFiles
MsgBox objFile.Name
Next
Peter wrote:

No problem. It will force me to get to grips with API.
Another question has occurred to me now. I can see how to display a list
of folders and select one. Can I access the contents so that I can get
all the file names in an array?

Sorry about all the individual questions

Peter

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:8_********************@comcast.com...

Many thanks (I think!).
As a dabbler in Vb (but not in programming, I wrote my first program

back in

1968 in a nice air conditioned room!)
I can see I'm going to have some fun.

Sorry for the ugliness of the API solution I referred you to; however,
as James pointed out, VB does not have direct write access to the dates,
so the only solution is to use API functions.

Rick - MVP