請問有人知道如何復制檔案夾嗎，包括其中的所有檔案！謝謝！
uj5u.com熱心網友回復：
string GetCurrentDirectory()：取當前目錄boolean DirectoryExists(string directoryname)：判斷目錄是否存在
integer ChangeDirectory(string directoryname)：改變當前目錄
integer CreateDirectory(string directoryname)：建立新目錄
integer RemoveDirectory(string directoryname)：移除目錄
integer FileCopy(string sourcefile,string targetfile{boolean replace})：檔案拷貝
integer FileMove(string sourcefile,string targetfile)：移動檔案
uj5u.com熱心網友回復：
或者做個批處理檔案，由pb去執行uj5u.com熱心網友回復：
寫個批處理在pb里用run呼叫，最簡單了。
uj5u.com熱心網友回復：
//將ls_DirStart目錄下的所有檔案復制到ls_DirEnd目錄下：
integer li_FileNum
String ls_Str, ls_File_Bat, ls_DirStart, ls_DirEnd
ls_File_Bat = 'aa.BAT'
ls_DirStart = 'C:\bb'
ls_DirEnd = 'D:\bb'
IF NOT DirectoryExists( ls_DirStart ) THEN
MessageBox( '提示', ls_DirStart + '目錄不存在。' )
RETURN
END IF
FileDelete( ls_File_Bat )
ls_Str = '@echo off ~r~n' +&
'md ' + ls_DirEnd + ' ~r~n' +&
'del ' + ls_DirEnd + '\*.* /q ~r~n' +&
'xcopy ' + ls_DirStart + '\*.* ' + ls_DirEnd + ' /E'
li_FileNum = FileOpen( ls_File_Bat, &
LineMode!, Write!, LockWrite!, Append!)
FileWrite( li_FileNum, ls_Str )
FileClose( li_FileNum )
Run( ls_File_Bat )
uj5u.com熱心網友回復：
更改：
ls_Str = '@echo off ~r~n' +&
'del ' + ls_DirEnd + '\*.* /s/f/q ~r~n' +&
'xcopy ' + ls_DirStart + '\*.* ' + ls_DirEnd + '\*.* /E'
洗掉ls_DirEnd下的所有檔案，包括子檔案夾下的所有檔案。
確保復制的程序中不出現覆寫的提示。
uj5u.com熱心網友回復：
1樓正解uj5u.com熱心網友回復：
PB11直接有filecopy了uj5u.com熱心網友回復：
如果檔案夾嵌套了檔案夾,那樣子不行吧.uj5u.com熱心網友回復：
run("xcopy 源目錄 目標目錄")uj5u.com熱心網友回復：
不錯轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/102216.html
標籤：API 調用
上一篇：體檢排隊問題