在OCaml的父目錄中創建一個文件？

Question

這是我當前的目錄結構的源代碼

/project 
    /code (source code) 
    /build (contains the .exe) 

部分：

let() = 
    let oc = open_out file in (* create or truncate file, return channel *) 
    fprintf oc "%s\n" message; (* write something *) 
    close_out oc; 

如果我運行在.EXE /建立子目錄，它會在/編譯輸出文件。但我想創建一個名爲result的新目錄並在其下創建輸出文件。

新的目錄結構：

/project 
    /code (source code) 
    /build (contains the .exe) 
    /result (contains the output file) 

如何父目錄下創建一個新的目錄，並使用OCaml的文件寫入呢？謝謝！

Answer 1

如果你手工創建結果目錄，你可以比更換你的文件名：

let oc = open_out ("../result/"^file) in 
... 

如果您需要創建從你的程序的目錄，你可以使用Unix.mkdir "../result"。請務必將其包裝在try ... with Unix.Error -> ...中以處理目錄已存在的情況。