OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 08-09-2003, 07:00
Posts: n/a
Default Open file form

I want to make a VBA script that open a specific directory and find all cdr files into it include all subfolders.
This project is to make an automatic exporter like "file converter" but extensible to all files.
it is possible?
Reply With Quote
Old 13-09-2003, 07:50
Posts: n/a


yes you can :
1) into FileConverter.gms project, take a look at BrowseforSpecificFolder module
2) frmSourceSelection has two methods you can use : cmdBrowseSource and GetSourceFiles, but in your case, Format parameter is useless.
In order to retrieve the cdr files of the subfolders too :
  FileName = Dir(Directory & "*.cdr", vbDirectory)
  Do While FileName <> ""
    If (FileName <> ".") And (FileName <> "..") Then
      FileName = Directory & FileName
      If (GetAttr(FileName) And vbDirectory) = vbDirectory Then
        'this is a directory
        GetSourceFiles FileName
        'this is a cdr file
        lstSourceFiles.AddItem FileName
      End If
    End If
    FileName = Dir
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
Open File Dialogue box won't sort - v11.0 Anonymous General 0 12-01-2005 19:09
Open form when i open my template diltech CorelDRAW/Corel DESIGNER VBA 1 10-01-2005 16:46
CorelDraw 8 error in DLL file - help !!! cannot open!!! Anonymous General 4 31-10-2004 15:52
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 03:22.

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