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 11-04-2004, 21:00
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 Browse for Folder

CorelDRAW 11 / 12: I need to browse for a folder....I am trying to use Alex's code from his Thumnailer program. It works fine except if I go back to the BrowseFolder window is doesn't remember what folder was selected. It alwasy defaults to My Computer. It does remember the folder in the Thumbnailer version. The only line I changed was this:

Code:
    sFolder = BrowseForFolder(AppWindow.Handle, "Select the folder to process", sFolder)
    If sFolder <> "" Then
        txtSource.Text = MergeMask(sFolder, sMask)
    End If

Change to:

Dim sFolder As String
sFolder = BrowseForFolder(AppWindow.Handle, "Select the Folder Where Your Files Will Be Stored.", sFolder)

If sFolder <> "" Then
    txtPath.Text = sFolder
End If
Baically removing the calls to the MergeMask as I don't need that. Any ideas would be great.

Shelby
Reply With Quote
  #2  
Old 12-04-2004, 08:35
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default Re: Browse for Folder

Shelby,

Do you retrieve the previous folder path from your text box into sFolder variable? Note that it is passed as an input parameter (the last parameter) for BrowserForFolder function?

In theory, you need something like this (note the last parameter):

Code:
Dim sFolder As String
sFolder = BrowseForFolder(AppWindow.Handle, "Select the Folder Where Your Files Will Be Stored.", txtPath.Text)
Reply With Quote
  #3  
Old 12-04-2004, 18:13
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 Thanks

Thanks Alex, that was it. Your amazing as always.

Shelby
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
Browse Dialog ddonnahoe CorelDRAW/Corel DESIGNER VBA 15 27-01-2004 12:51


All times are GMT -5. The time now is 05:59.


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