请问，如何删除FTP上的非空目录？(75分)

葡萄 · 2003-11-05

我从网上看到一个函数： function DoRemoveDir(sDirName:String):Boolean; var    hFindFile:Cardinal;    tfile:String;    sCurDir:String;    bEmptyDir:Boolean;    FindFileData:WIN32_FIND_DATA; begin //如果删除的是空目录,则置bEmptyDir为True //初始时,bEmptyDir为True   bEmptyDir:=True; //先保存当前目录   sCurDir:=GetCurrentDir;   SetLength(sCurDir,Length(sCurDir));   ChDir(sDirName);   hFindFile:=FindFirstFile('*.*',FindFileData);   if hFindFile<>INVALID_HANDLE_VALUE then begin   repeat   tfile:=FindFileData.cFileName;     if (tfile='.') or (tfile='..') then       begin         bEmptyDir:=bEmptyDir and True;         Continue;       end; //不是空目录,置bEmptyDir为False     bEmptyDir:=False;     if FindFileData.dwFileAttributes=        FILE_ATTRIBUTE_DIRECTORY then        begin          if sDirName[Length(sDirName)]<>'/' then            DoRemoveDir(sDirName+'/'+tfile)          else            DoRemoveDir(sDirName+tfile);     if not RemoveDirectory(PChar(tfile)) then         result:=false     else         result:=true;     end else       begin          if not DeleteFile(PChar(tfile)) then           result:=false     else         result:=true;     end; until FindNextFile(hFindFile,FindFileData)=false; //FindClose(hFindFile); end else   begin    ChDir(sCurDir);    result:=false;    exit; end; //如果是空目录,则删除该空目录 if bEmptyDir then   begin //返回上一级目录 ChDir('..'); //删除空目录 RemoveDirectory(PChar(sDirName)); end; //回到原来的目录下 ChDir(sCurDir); result:=true; end; //2.2删除目录的函数：DeleteDir function DeleteDir(sDirName:String):Boolean; begin if Length(sDirName)<=0 then exit; //删除... Result:=DoRemoveDir(sDirName) and RemoveDir(sDirName); end; 这个函数只能删除本地目录，希望高手能指点一下如何把它改造成一个可以删除FTP目录的函数，或者用其他方法删除FTP目录，谢谢了，分不多了，全部奉上

tt8 · 2003-11-05

这个是vfp调用adi 移除 ftp 上指定目录   你可以自己改造成delphi代码 -=-=-=-=-=-=-=-=-=-=-=-=-=-   * Removing FTP directory   * 移除 ftp 上指定目录 * 你必需有这个 FTP 上的用户权利 *--------------------------------------------- clea #Define INTERNET_INVALID_PORT_NUMBER   0 #Define INTERNET_OPEN_TYPE_DIRECT      1 #Define INTERNET_SERVICE_FTP           1 #Define FTP_TRANSFER_TYPE_ASCII        1 #Define FTP_TRANSFER_TYPE_BINARY       2 Public hOpen, hFtpSession Do decl * select FTP connection providing you an appropriate access level * in all cases it can not be any "anonymous" access If connect2ftp ("202.105.49.131", "down", "down") lnResult = FtpRemoveDirectory (hFtpSession, "红雨") * possible reasons for the directory not being removed: * - your access level is not valid * - the directory does not exist * - the directory is not empty If lnResult = 0 ? GetLastError()    && usually the error code is 12003 Endif = InternetCloseHandle (hFtpSession) = InternetCloseHandle (hOpen) Endif Procedure  decl Declare INTEGER GetLastError IN kernel32 Declare INTEGER InternetOpen IN wininet.dll; STRING  sAgent,; INTEGER lAccessType,; STRING  sProxyName,; STRING  sProxyBypass,; STRING  lFlags Declare INTEGER InternetCloseHandle IN wininet.dll INTEGER hInet Declare INTEGER InternetConnect IN wininet.dll; INTEGER hInternetSession,; STRING  sServerName,; INTEGER nServerPort,; STRING  sUsername,; STRING  sPassword,; INTEGER lService,; INTEGER lFlags,; INTEGER lContext Declare INTEGER FtpRemoveDirectory IN wininet.dll; INTEGER hConnect,; STRING  lpszDirectory Return Endproc Function  connect2ftp (strHost, strUser, strPwd) * open access to Inet functions hOpen = InternetOpen ("vfp", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0) If hOpen = 0 ? "Unable to get access to WinInet.Dll" Return .F. Endif * connect to FTP hFtpSession = InternetConnect (hOpen, strHost, INTERNET_INVALID_PORT_NUMBER,; strUser, strPwd, INTERNET_SERVICE_FTP, 0, 0) If hFtpSession = 0 * close access to Inet functions and exit = InternetCloseHandle (hOpen) ? "FTP " + strHost + " is not available" Return .F. Else ? "Connected to " + strHost + " as: [" + strUser + ", *****]" Endif Return .T. Endfunc

葡萄 · 2003-11-05

不好意思，刚学Delphi没多久，所以看不懂

请问，如何删除FTP上的非空目录？(75分)

葡萄

Unregistered / Unconfirmed

tt8

Unregistered / Unconfirmed

葡萄

Unregistered / Unconfirmed

Similar threads