OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > Corel PHOTO-PAINT > Macros/Add-ons

Thread Tools Search this Thread Display Modes
Old 27-04-2006, 11:56
Posts: n/a
Question Get preliminar file info


i want to know if there are one way to get file info without open the document (just like appears in Open window when file is only selected).

My goal is recollect all those files with specific resolution into a collection, to process them later; if it exist the method, can get the resolution too?

i don't want to spend ALL the time openning ALL my images only to get resolution value, i'll process 80,000 images!


some of my code is:

Sub Redimensiona(ByVal File_Collection As Collection, ByVal ress As Integer)
Dim Img_Collection As New Collection
Dim sw As Integer
Dim sh As Integer
Dim rw As Integer
Dim i As Integer
Dim ic as Variant

For Each ic In File_Collection
i = i + 1
OpenDocument (File_Collection(i))
' I dont want to do the line before
sw = ActiveDocument.SizeWidth
sh = ActiveDocument.SizeHeight
rw = ActiveDocument.DpiX

If rw = ress Then Img_Collection.Add Coleccion_Arch(i)
Reply With Quote
Old 27-04-2006, 15:18
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
Join Date: Mar 2005
Posts: 836

maybe this could be achieved using CDRInfoFilter ActiveX-dll, but I don't know how to get it working in CorelDraw VBA. Maybe it can be called only from special environment (as it is designed to work as explorer extension) or maybe a wrapper could be written in a full programming language (not VBA but VB/Delphi/C)
Reply With Quote
Old 28-04-2006, 06:16
Posts: n/a

Originally Posted by wOxxOm
maybe this could be achieved using CDRInfoFilter ActiveX-dll, but I don't know how to get it working in CorelDraw VBA.
See the example here.
Reply With Quote
Old 02-05-2006, 12:54
Posts: n/a
Default get the preliminar file info

thak u guys!

I apreciate your support, and i'm going to try this, or if i(you) found another choice, to post!
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
delete vba project from cdr file hotairballoon CorelDRAW/Corel DESIGNER VBA 1 18-05-2005 09:08
File Convertor to do transpararent TIFFs dan CorelDRAW/Corel DESIGNER VBA 8 22-12-2004 13:23
Finding a File in Sub Folders shelbym CorelDRAW/Corel DESIGNER VBA 10 10-05-2004 08:02
New macros: Oberon Selection Manager & File Name inserte Alex Site News 0 24-08-2003 12:28
Open - Resize - Savefile in Photo Paint greenee Corel Photo-Paint VBA 2 28-06-2003 03:54

All times are GMT -5. The time now is 00:50.

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