VFP 愛用者社區

[chioucy]

請問在 VFP6 裡該如何更改目錄名稱
不要透過 dos shell
因為我需要在 處理更改目錄名稱後 可以得知處理結果是否成功
(因為更改目錄名稱時 如果目錄下檔案有被網路其他人使用時 更改目錄名稱應該要不成功)
是否有API可以處理 ?

[thornbird313]

用FSO对象，先复制后删除，好像可以：

oFSO = CREATEOBJECT("Scripting.FileSystemObject")
oFolder = oFSO.GetFolder("D:\EnumObjects")
oFolder.Copy("D:\EnumObjects_bak")
oFolder.Delete()

[chioucy]

謝謝 !
測試可以用了

[chioucy]

<<< 轉貼 >>>

檔案及資料夾的處理
　　Windows Script 當然具有複製功能而且還亂強一把的，單純的複製就不要說了，搭配上確認動作以及根據內容大小做判斷，都可以將以往我們手動的動作自動化，至於程式嗎...............也是相當簡單的喔 ^^Y

必備知識─資料夾處理

FSO 物件 set fs = CreateObject("Scripting.FileSystemObject")
當要使用檔案處理時就必須依靠 FSO 物件來作處理。
刪除資料夾 fs.DeleteFolder
複製資料夾 fs.CopyFolder
搬移資料夾 fs.MoveFolder
建立資料夾 fs.CreateFolder

必備知識─檔案處理

FSO 物件 set fs = CreateObject("Scripting.FileSystemObject")
當要使用檔案處理時就必須依靠 FSO 物件來作處理。
刪除檔案 fs.DeleteTextFile
複製檔案 fs.CopyTextFile
搬移檔案 fs.MoveTextFile
建立檔案 fs.CreateTextFile



刪除資料夾 檔案下載


set fs = CreateObject("Scripting.FileSystemObject")
fs.deleteFolder "c:\123",true

將 c:\123 資料夾刪除

複製資料夾 檔案下載


set fs = CreateObject("Scripting.FileSystemObject")

dim vbyesno: vbyesno = 4
dim vbquestion: vbquestion = 32
dim vbyes: vbyes = 6
dim vbno: vbno = 7
retry = msgbox ("確定要複製嗎？",vbyesno + vbquestion)

if retry = vbyes then
fs.copyFolder "c:\win98","c:\win99"
msgbox "完成"
else
wscript.echo "no!"
end if

自動判斷資料夾複製 檔案下載


on error resume next

set fs = CreateObject("Scripting.FileSystemObject")
set sf = fs.getfolder("\\win2000p\c\win98")
set tf = fs.getfolder("c:\win99")
ssize = sf.size
tsize = tf.size

if ssize = tsize then
wscript.echo "相同"
else
fs.deleteFolder "c:\win99",true
fs.copyFolder "\\win2000p\c\win98","c:\win99",true
wscript.echo "複製完成"
end if

輸入資料夾名稱自動複製 檔案下載


gamename = inputbox("input","複製遊戲產生器")

set fs = CreateObject("Scripting.FileSystemObject")
dim vbyesno: vbyesno = 4
dim vbquestion: vbquestion = 32
dim vbyes: vbyes = 6
dim vbno: vbno = 7
retry = msgbox ("確定要複製嗎？",vbyesno + vbquestion)

if retry = vbyes then
fs.copyFolder "\\server\gamedata\"+gamename,"c:\"+gamename
msgbox "完成"
else
end if