MoveFolder

1 つまたは複数のフォルダーを別の場所に移動します。

構文
FileSystemObject.MoveFolder( source, destination )
引数
source
移動するフォルダーのパス。 source 引数として指定する文字列では、パスの最後の構成要素に限ってワイルドカード文字を使用できます。
destination
フォルダーの移動先のパス。 destination 引数には、ワイルドカード文字を使用できません。
戻値

プログラム実行例

Tempフォルダのフォルダをデスクトップに移動

CONST ssfDesktop = 0
CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM Folder = FSO.GetSpecialFolder(TemporaryFolder)
DIM source = FSO.BuildPath(Folder.Path, "NewFolder")

DIM Shell = CREATEOLEOBJ("Shell.Application")
Folder = Shell.NameSpace(ssfDesktop)
DIM path = Folder.Self.Path

DIM destination = path + IIF(COPY(path, LENGTH(path)) = "\", "", "\")

FSO.MoveFolder(source, destination)

//////////////////////////////////////////////////
// 【引数】
//   expr : 評価する式 
//   truepart : 評価した式がTrueのときに返す値 
//   falsepart : 評価した式がFalseのときに返す値 
// 【戻値】
//   truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき 
//////////////////////////////////////////////////
FUNCTION IIF(expr, truepart, falsepart)
	IFB EVAL(expr) THEN
		RESULT = truepart
	ELSE
		RESULT = falsepart
	ENDIF
FEND