12 lines
340 B
Plaintext
12 lines
340 B
Plaintext
SetDirectory@NotebookDirectory[];
|
|
t = OpenWrite["output.txt"]
|
|
Close[t]
|
|
s = OpenWrite[First@FileNameSplit[$InstallationDirectory] <> "\\output.txt"]
|
|
Close[s]
|
|
|
|
(*In root directory*)
|
|
CreateDirectory["\\docs"]
|
|
(*In current operating directory*)
|
|
CreateDirectory[Directory[]<>"\\docs"]
|
|
(*"left<>right" is shorthand for "StringJoin[left,right]"*)
|