Just trying to make it more palliative???

Tom Ogilvy wrote:

Thanks for the lesson. Guess I stepped on it that time <g

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote in message
...
Ah, but =substitute() is also case sensitive.

I'd add that ucase() stuff and change ".Gif" to match (".GIF").

Tom Ogilvy wrote:

Excellent catch, Dave. Slightly slower (probably unnoticeable) and
available in all versions without the need for extra arguments

SCANMAPS(I, 1) =
Application.Substitute(DIR(.FOUNDFILES.ITEM(I)),". Gif","")

--
Regards,
Tom Ogilvy'

"Dave Peterson" wrote in message
...
Just a typo alert:

SCANMAPS(I, 1) = Replace(DIR(.FOUNDFILES.ITEM(I)),.Gif,"")
becomes
SCANMAPS(I, 1) = Replace(DIR(.FOUNDFILES.ITEM(I)),".Gif","")

But after further review <bg, I think I'd use:

SCANMAPS(I, 1) =
Replace(DIR(.FOUNDFILES.ITEM(I)),".Gif","",1,-1,vbTextCompare)
or
SCANMAPS(I, 1) = Replace(ucase(DIR(.FOUNDFILES.ITEM(I))),".GIF","")

(Replace is case sensitive unless it's told not to be.)



Tom Ogilvy wrote:

if xl2000 or later

FOR I = 1 TO .FOUNDFILES.COUNT
SCANMAPS(I, 1) = Replace(DIR(.FOUNDFILES.ITEM(I)),.Gif,"")
NEXT I

--
Regards,
Tom Ogilvy

"icdoo" wrote
in
message ...

Hello People, THANK YOU for everyones help. Here is my question
tonight:

I have an array with a bunch of filenames in them, I want to
modify
the
file names to get rid of the extension ".gif".


FOR I = 1 TO .FOUNDFILES.COUNT
SCANMAPS(I, 1) = DIR(.FOUNDFILES.ITEM(I))
NEXT I


If it was in a Column I would do this:
Columns("A:A").Select
Selection.Replace What:=".GIF", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

How can I change the array without having to paste it in a row
modify
it and put it back into the array?

Thank You in adavance


--
icdoo


------------------------------------------------------------------------
icdoo's Profile:
http://www.excelforum.com/member.php...o&userid=27342
View this thread:
http://www.excelforum.com/showthread...hreadid=501422


--

Dave Peterson

--

Dave Peterson

--

Dave Peterson