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