OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 27-04-2006, 12:56
_nabbu_
Guest
 
Posts: n/a
Question Get preliminar file info

hi

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!

Thx!

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
  #2  
Old 27-04-2006, 16:18
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

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
  #3  
Old 28-04-2006, 07:16
Lev
Guest
 
Posts: n/a
Default

Quote:
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
  #4  
Old 02-05-2006, 13:54
_nabbu_
Guest
 
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
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
delete vba project from cdr file hotairballoon CorelDRAW/Corel DESIGNER VBA 1 18-05-2005 10:08
File Convertor to do transpararent TIFFs dan CorelDRAW/Corel DESIGNER VBA 8 22-12-2004 14:23
Finding a File in Sub Folders shelbym CorelDRAW/Corel DESIGNER VBA 10 10-05-2004 09:02
New macros: Oberon Selection Manager & File Name inserte Alex Site News 0 24-08-2003 13:28
Open - Resize - Savefile in Photo Paint greenee Corel Photo-Paint VBA 2 28-06-2003 04:54


All times are GMT -5. The time now is 18:20.


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