VBA, Obtain File Names for VB Process

Obtain File Names for VB Process

Author	Message
Chri #1 / 2	Obtain File Names for VB Process Currently, I use the code below to send the referenced files through a macro "wash" procedure for importation into Access. However, other organizations have asked for a copy of my whole process. As a result, I need code that will look in a specified location, obtain the names of all the files and then process them through the "Wash" procedure. All help would be appreciated. Chris Premo ********************************************************* Call NLMFileFix("ARIES.TXT") Call NLMFileFix("ATHENA.TXT") Call NLMFileFix("ATLAS.TXT") Call NLMFileFix("DAPHNE.TXT") Call NLMFileFix("GEMINI.TXT") Call NLMFileFix("HELEN.TXT") Call NLMFileFix("HERA.TXT") Call NLMFileFix("HERCULES.TXT") Call NLMFileFix("LAUNCHPAD.TXT") Call NLMFileFix("MARLEY.TXT") Call NLMFileFix("MEDBD01.TXT") Call NLMFileFix("MEDBD02.TXT") Call NLMFileFix("MEDBD03.TXT") Call NLMFileFix("MEDBD04.TXT") Call NLMFileFix("MEDBD06.TXT") Call NLMFileFix("POSEIDON.TXT") Call NLMFileFix("TRITON.TXT") Call NLMFileFix("VENUS.TXT") Call NLMFileFix("ZEUS.TXT") Application.Quit *****************************************************
Sat, 06 Nov 2004 04:13:59 GMT

Jay Freedma #2 / 2	Obtain File Names for VB Process Hi, Chris, Have a look at http://www.mvps.org/word/FAQs/MacrosVBA/BatchFR.htm, which has code for running a Find/Replace on every file in a specified folder. Instead of the Open and Find/Replace, insert a call to your procedure. -- Regards, Jay Freedman Microsoft Word MVP Word MVP FAQ site: http://www.mvps.org/word Quote: > Currently, I use the code below to send the referenced > files through a macro "wash" procedure for importation > into Access. However, other organizations have asked for > a copy of my whole process. As a result, I need code that > will look in a specified location, obtain the names of all > the files and then process them through the "Wash" > procedure. > All help would be appreciated. > Chris Premo > ********************************************************* > Call NLMFileFix("ARIES.TXT") > Call NLMFileFix("ATHENA.TXT") > Call NLMFileFix("ATLAS.TXT") > Call NLMFileFix("DAPHNE.TXT") > Call NLMFileFix("GEMINI.TXT") > Call NLMFileFix("HELEN.TXT") > Call NLMFileFix("HERA.TXT") > Call NLMFileFix("HERCULES.TXT") > Call NLMFileFix("LAUNCHPAD.TXT") > Call NLMFileFix("MARLEY.TXT") > Call NLMFileFix("MEDBD01.TXT") > Call NLMFileFix("MEDBD02.TXT") > Call NLMFileFix("MEDBD03.TXT") > Call NLMFileFix("MEDBD04.TXT") > Call NLMFileFix("MEDBD06.TXT") > Call NLMFileFix("POSEIDON.TXT") > Call NLMFileFix("TRITON.TXT") > Call NLMFileFix("VENUS.TXT") > Call NLMFileFix("ZEUS.TXT") > Application.Quit > *****************************************************
Sat, 06 Nov 2004 05:13:09 GMT

Page 1 of 1

[ 2 post ]