OSDN Git Service

こっそり、気持ち程度の日本語化しました (UTF-8 / Windows 環境用)。
[ring-lang-081/annotated-ring-with-OmegaT.git] / source / ringpm / core / folders.ring
1 /*
2         Title : The Ring Package Manager 
3         Date  : 2018.10.19
4         Author: Mahmoud Fayed <msfclipper@yahoo.com>
5 */
6
7 func CreateSubFolders cFileName 
8         # Remove the file name - Keep the PATH 
9                 cPath = JustFilePath(cFileName)
10                 if cPath = "" return ok
11                 # Support for Windows, Linux, macOS
12                         cPath = substr(cPath,"\","/")
13                 aFolders = Split(cPath,"/")
14                 # Create Folder and sub folders 
15                         for cFolder in aFolders 
16                                 OSCreateOpenFolder(cFolder)
17                         next