Finding the path of a .Ini file

[maneesh]

i have an ini file named sample.ini in the directory where data.xls file is stored .

on a click of a button in the excel file i should be able to locate the the ini file.

in other words first i should get the path where the excel sheet is present and then search that directory for the .ini file
and then read from the ini file

please provide me with vbA code on how to get the path of the excel sheet.

the excel sheet and the .ini file will remain in the same directory

 

[Haluk]

On 2002-10-30 03:14, maneesh wrote:
i have an ini file named sample.ini in the directory where data.xls file is stored .

on a click of a button in the excel file i should be able to locate the the ini file.

in other words first i should get the path where the excel sheet is present and then search that directory for the .ini file
and then read from the ini file

please provide me with vbA code on how to get the path of the excel sheet.

the excel sheet and the .ini file will remain in the same directory

Hi;

This may be the answer to your question;

Private Sub CommandButton1_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(ThisWorkbook.Path)
Set fc = f.Files
For Each f1 In fc
s = f1.Name
If s = "sample.ini" Then
MsgBox "Sample.ini has been found !" & Chr(13) & "The path is ; " & ThisWorkbook.Path & "" & "sample.ini"
Exit Sub
End If
Next
MsgBox "Sample.ini has not been found !"
End Sub

 

[Ivan F Moala]

If the Ini file is in the same Dir as the
Workbook then the Path is just;

ThisWorkbook.Path

 

[maneesh]

Thank you For ur help

The Code Was really Usefull
Thanks Again
-- Maneesh