CreateDirectory
CreateDirectory はリモート ftp サーバー上に新しいディレクトリを作成します。
構文
CreateDirectory(STRING directory)
内容:
Directoryは文字列です。
戻り値
ブール値。 TRUE が戻される場合、関数は正常終了しました。それ以外の場合、エラーが戻されたことを意味します。 FALSE が戻される場合、FTPObject.LastError は WIN32 エラー コードを戻します。
例
現在の ftp 作業ディレクトリをエコーする例:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj as Object
'必要に応じて設定
ip = "127.0.0.1"
port = 21
mode = FALSE
username = "anonymous"
password = “test@lnss.com”
cr = Chr(13) + Chr(10)
ランダム化を初期化
Randomize
'ここでファイル名に追加するためにランダム数を生成
for K = 1 to 10
randomnumber = randomnumber + cstr(Random(10))
next
tempDir = "lnssDir" & randomnumber
'新しい ftp 接続を作成
Set FTPobj=FTPネットワーク コンピューター間でファイルを転送するために使用するプロトコル。.Connect (ip,21,mode,username,password)
'匿名 ftp 接続後に新しいディレクトリの作成を試行
if FTPobj.CreateDirectory ( tempDir ) = TRUE then
echo "Directory create access is available to anonymous ftp at " + ip & cr
'ここでディレクトリの削除を試行
if FTPobj.RemoveDirectory ( tempDir ) = TRUE then
echo "Directory Delete access is available to anonymous ftp at " + ip & cr
else
echo "Directory Delete access is not available. You might need to Delete directories created by GFI LanGuard" & cr
End If
End If
End Function