Export files from coreldraw and name it

[aakkaarr]

1. if i export some object from a document to a defined folder(say d:\jpgs\Myfile.jpg)
And the file exists now the task is to export it as D:\jpgs\Myfile(1).jpg
Code to see first that if the file exist and if exists name it sequencially

[shelbym]

There are several way to do this, here are two simple versions:

Sub UsingDir()
    If Dir("C:\Temp\fillets.bmp") <> "" Then
        MsgBox "Exists"
    Else
        MsgBox "Does not exist"
    End If
End Sub

And the other:

Sub UsingAttr()
    Dim attr As VbFileAttribute
    
    On Error Resume Next
    attr = GetAttr("C:\Temp\fillet.bmp")
    If Err.Number = 0 And (attr And (vbArchive + vbHidden + vbNormal + vbReadOnly)) <> 0 Then
        MsgBox "Exists"
    Else
        MsgBox "Does not exist"
    End If
End Sub

Best of luck,

-Shelby

[aakkaarr]

thanks Shalby,
it works fine, i was not using corelscripttools they are wonderful.
For renaming like if the file exist(Myfile.jpg, Myfile(1).jpg) do Vista has some buitin function to rename the file by itself as while copying a file in explorer it give two options 1. copy & replace 2. copy & keep both
hoe to access that function

[shelbym]

I don't know of a way to use Vista's built in feature. You would need to write your own solution that simple prompted and then rename with the appropriate number.

-Shelby