CreateDirectory
CreateDirectory 可建立遠端 ftp 伺服器上的新目錄。
語法
CreateDirectory(STRING 目錄)
其中：
目錄為字串。
結果
布林。 如果傳回 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)
'初始化隨機選擇
隨機產生
'現在產生一個要新增到檔案名稱的隨機編號
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
回應 "目錄建立存取權可用於匿名 ftp 於 " + ip & cr
'現在嘗試刪除目錄
if FTPobj.RemoveDirectory ( tempDir ) = TRUE then
回應 "目錄刪除存取權可用於匿名 ftp 於 " + ip & cr
else
回應 "目錄刪除存取權無法使用。 您可能需要刪除由 GFI LanGuard 建立的目錄" & cr
End If
End If
End Function