Add workbook path in cell

[Samadhan Gaikwad]

With below code I tried to add workbook path into cell but not working.
Dim data As String
data = Application.ActiveWorkbook.Path
ActiveCell.FormulaR1C1 = _
"findstr /C:""<feature"" data\Textfiles\*.txt > PartData.txt"
How can I accomplish this. Using this I am going to print this in bat file and run it.

 

[Samadhan Gaikwad]

I got working with below code:

        ActiveCell.FormulaR1C1 = _
        "findstr /C:""<feature"" " & data & "\Textfiles\*.txt >
        PartData.txt"