Analogue of NotebookDirectory[] for scripts (to get the directory path of my script.m)?

Question

Is there a way to get the script directory from inside a Mathematica script?

I want a function analogue to NotebookDirectory[] (which doesn't work for scripts). Is there a way to do this?

Answer 1

DirectoryName @ $InputFileName

is the answer, right?

And this will work whether you call it from a package or a notebook interface:

parentPath = $InputFileName /. "" :> NotebookFileName[]
parentDir = DirectoryName @ parentPath

---

Check:

path = FileNameJoin[{$TemporaryDirectory, "test.m"}];

Export[
 path,
 "Print @ DirectoryName @ $InputFileName",
 "Text"
 ]

Get @ path

(...)\Local\Temp\