find *.zip file in App folder so i can open it

linuxrox
linuxrox used Ask the Experts™
on
Hello!  i'm simply needing a short and easy way of finding a zip file in the running program directory (non recursive).  the zip file gets replaced every week with a different name (it's automatically downloaded from the web) and i want to write a simple program that unzips the zip file to the current running program directory and then does some renaming of those files etc etc and then maybe copy them to another folder or whatever.  so basically just search the running program folder for a zip file and store the file name and path in a variable so i can use that variable in the unzip procedure for the next part of the program.  anyone have any good code for that?

thanks!!
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2010
Commented:
Greetings, linuxrox.

Assuming that there's only one zip file in the folder, then this will get the job done.  If there are mutliple zip files, then this will only return the name of the first one found.

    strFilename = Dir(App.Path & "\*.zip")

Cheers!

Author

Commented:
yea there will just be one single zip file in there...i will open/unzip it then have the program delete the file...thanks!
Top Expert 2010

Commented:
You're welcome.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial