ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Using a file name to get the path where the file resides (https://www.excelbanter.com/excel-programming/373588-using-file-name-get-path-where-file-resides.html)

Quietman

Using a file name to get the path where the file resides
 
I printing reports from 4 different files who names change each month
depending on the month and version

I would like to enter the file name in a cell in the worksheet. Then have
the VBA code search and return the path where the file exist

--
Helping Is always a good thing

Gary''s Student

Using a file name to get the path where the file resides
 
See:

http://groups.google.com/group/micro...718b529f0a6e60


--
Gary's Student


"QuietMan" wrote:

I printing reports from 4 different files who names change each month
depending on the month and version

I would like to enter the file name in a cell in the worksheet. Then have
the VBA code search and return the path where the file exist

--
Helping Is always a good thing


Quietman

Using a file name to get the path where the file resides
 
Gary,

thsi opens up a dialog box where the person would have to select the file

I want the code to search for the path based on the file name inputed in a
cell in the worksheet

--
Helping Is always a good thing


"Gary''s Student" wrote:

See:

http://groups.google.com/group/micro...718b529f0a6e60


--
Gary's Student


"QuietMan" wrote:

I printing reports from 4 different files who names change each month
depending on the month and version

I would like to enter the file name in a cell in the worksheet. Then have
the VBA code search and return the path where the file exist

--
Helping Is always a good thing


Gary''s Student

Using a file name to get the path where the file resides
 
Try this:


Sub gsnu()
Dim s0 As String
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String

s0 = "cd\"
s1 = "findit.bat"
s2 = "dir /s "
s3 = Range("A1").Value
s4 = "pause"

Open s1 For Output As #1
Print #1, s0
Print #1, s2 & s3
Print #1, s4
Close #1

x = Shell("cmd.exe /c findit.bat", 1)

End Sub

This routine uses the contents of cell A1 to create a .bat file. The
routine then executes the .bat file. The .bat file uses the dir command to
do the searching.
--
Gary''s Student


"QuietMan" wrote:

Gary,

thsi opens up a dialog box where the person would have to select the file

I want the code to search for the path based on the file name inputed in a
cell in the worksheet

--
Helping Is always a good thing


"Gary''s Student" wrote:

See:

http://groups.google.com/group/micro...718b529f0a6e60


--
Gary's Student


"QuietMan" wrote:

I printing reports from 4 different files who names change each month
depending on the month and version

I would like to enter the file name in a cell in the worksheet. Then have
the VBA code search and return the path where the file exist

--
Helping Is always a good thing



All times are GMT +1. The time now is 07:40 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com