OberonPlace.com Forums  

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

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

Hello
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

Code:
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 
      ActiveDocument.Close 
    End If 
  Next 
End Sub
Can U help me ?

Gneppo
Reply With Quote
  #2  
Old 24-01-2005, 12:18
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
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
Default

How about using Alex's File Converter Script?

http://www.oberonplace.com/draw/draw...fileconvsh.htm

Hope it helps,

Shelby
Reply With Quote
  #3  
Old 25-01-2005, 06:55
Gneppognappo
Guest
 
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 !!!

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

I reloaded script converter again and it works !!

Thank you !!!

Gneppo
Reply With Quote
Reply


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 23:35.


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