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