OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Old 24-01-2005, 08:27
Posts: n/a
Default Batch conversion to jpg format

I own CDR 10 and I neeed to to convert all of the files in different subdirectories in jpg format.
Looking in the forum I found this code from PPZ21 to convert in CDR 9 format but I'm unable to convert to the .jpg format

Sub SaveOlderVer() 
  Dim opt As New StructSaveAsOptions 
' Specify source and target folder here (both must exist) 
  SourceFolder = "C:\cdr_files" 
  TargetFolder = "C:\cdr_files\version9" 
' Specify output CDR version here 
  opt.Version = cdrVersion9 
  Set fso = CreateObject("Scripting.FileSystemObject") 
  Set f = fso.GetFolder(SourceFolder) 
  Set fc = f.Files 
  For Each f1 In fc 
    If LCase(Right(f1.Name, 4)) = ".cdr" Then 
      OpenDocument f1.Path 
      If Right(TargetFolder, 1) <> "\" Then TargetFolder = TargetFolder & "\" 
      ActiveDocument.SaveAs TargetFolder & f1.Name, opt 
    End If 
End Sub
Can U help me ?

Reply With Quote
Old 24-01-2005, 12:18
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,788
Blog Entries: 12
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym

How about using Alex's File Converter Script?


Hope it helps,

Reply With Quote
Old 25-01-2005, 06:55
Posts: n/a
Default I tried but ...

Hello !

thank you for the advice, but I tried that script and something is wrong and it doesn't work :?

I will try again with another computer and I'll let you know

Ciao !!!

Reply With Quote
Old 28-01-2005, 02:24
Posts: n/a
Default It works !!

I reloaded script converter again and it works !!

Thank you !!!

Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
format text dialog box implement graphicdesigner CorelDRAW/Corel DESIGNER VBA 5 22-12-2004 14:37
Batch file automation in PhotoPAINT. Please help. vallentin Corel Photo-Paint VBA 0 14-04-2004 12:48
New user - curve default? - dxf conversion? Anonymous CurveWorks 2 16-05-2003 11:23
Corel 10 file conversion script doesn't convert files Kevin CorelDRAW CS 0 13-04-2003 21:28
Batch script "meta" variables dleigh Corel Photo-Paint CS 0 17-02-2003 09:00

All times are GMT -5. The time now is 16:52.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com