adding +1 to file if name already exists

[greegan]

I have the following
ExtractFile = <filename> & " P" & <functiontoretrievecompanynumber> & " D.........
The D should have a 1 after it. If the file exists the macro should automatically add 1 to it (making it D2) and it will go as far as two digits gets me (99?) so I have the rest of the macro, but when i made my notes in class I scribbled some of the instructions. Instead of going back to the instructor I'm coming to you. Can someone give me any suggestions?
Thank you

- g

 

[John_w]

Use the Dir functin to determine if the file exists.

 

[greegan]

dir is already being used

 

[greegan]

Dir("C:\Documents and Settings\" & UserName & "\My Documents\" & ExtractFile & ".xls")
is what i'm using
my first entry identifies the ExtractFile
so i need a way to "grow" the numeric value of "D" if the file exists.