本ページには広告が含まれています。
指定したパスにフォルダを作成します。foldernameに指定したパスにフォルダを作成します。指定したフォルダが既に存在する場合や親フォルダが存在しない場合は、エラーが発生します。
パスが存在するかどうか調べるにはFSO.CreateFolder メソッドを使います。
- 構文
- FileSystemObject.CreateFolder( foldername )
- 引数
- foldername 省略可
- 作成するフォルダーの名前を指定
- 戻り値
注意点
CreateFolderは親フォルダが存在しなければエラーになります。
以下は再帰呼び出しで親フォルダが存在するところまで遡り順にフォルダを作成していくプログラムです。
PROCEDURE CreateFolders(folderspec)
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM parentPath = FSO.GetParentFolderName(folderspec)
IFB !FSO.FolderExists(parentPath) THEN
CreateFolders(parentPath)
ENDIF
IF !FSO.FolderExists(folderspec) THEN FSO.CreateFolder(folderspec)
FENDプログラム実行例
表示されているすべてのウィンドウのスクリーンショットを保存
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\Screenshot"
IF FSO.FolderExists(folderspec) = FALSE THEN FSO.CreateFolder(folderspec)
FOR n = 0 TO GETALLWIN() - 1
DIM ID = ALL_WIN_ID[n]
IFB STATUS(ID, ST_VISIBLE) = TRUE
DIM filename = ID + "_" + STATUS(ID, ST_TITLE)
filename = PathCleanupSpec(filename)
DIM path = FSO.BuildPath(folderspec, filename)
path = uniqueFilename(path)
SAVEIMG(path, id)
ENDIF
NEXT使用関数
解説
関連記事
- Shell.Explore メソッド
- 指定したディレクトリをエクスプローラで開きます。
- Folder オブジェクト
- シェルフォルダを表します。
- Folder.CopyHere メソッド (Shell)
- 1つまたは複数のアイテムをフォルダにコピーします。
- Folder.GetDetailsOf メソッド (Shell)
- フォルダ内のアイテムに関する詳細を取得します。
- Folder.MoveHere メソッド (Shell)
- 1つまたは複数のアイテムをこのフォルダに移動します。
- Folder.ParseName メソッド (Shell)
- 指定されたアイテムのFolderItem オブジェクトを作成して返します。
- Folder.ParentFolder プロパティ (Shell)
- 指定したフォルダの親のFolder オブジェクトを返します。
- FileSystemObject オブジェクト
- Folder オブジェクト
- Folder オブジェクト
- フォルダのすべてのプロパティにアクセスできます。