|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
chioucy
註冊時間: 2004-05-26 文章: 33
第 1 樓
|
發表於: 星期五 六月 30, 2006 11:05 pm 文章主題: VFP6 可有指令更改目錄名稱 ? |
|
|
請問在 VFP6 裡該如何更改目錄名稱
不要透過 dos shell
因為我需要在 處理更改目錄名稱後 可以得知處理結果是否成功
(因為更改目錄名稱時 如果目錄下檔案有被網路其他人使用時 更改目錄名稱應該要不成功)
是否有API可以處理 ? |
|
回頂端 |
|
|
thornbird313
註冊時間: 2004-12-14 文章: 23
第 2 樓
|
發表於: 星期六 七月 01, 2006 2:44 am 文章主題: |
|
|
用FSO对象,先复制后删除,好像可以:
oFSO = CREATEOBJECT("Scripting.FileSystemObject")
oFolder = oFSO.GetFolder("D:\EnumObjects")
oFolder.Copy("D:\EnumObjects_bak")
oFolder.Delete() |
|
回頂端 |
|
|
chioucy
註冊時間: 2004-05-26 文章: 33
第 3 樓
|
發表於: 星期六 七月 01, 2006 8:29 am 文章主題: |
|
|
謝謝 !
測試可以用了 |
|
回頂端 |
|
|
chioucy
註冊時間: 2004-05-26 文章: 33
第 4 樓
|
發表於: 星期六 七月 01, 2006 8:33 am 文章主題: |
|
|
<<< 轉貼 >>>
檔案及資料夾的處理
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 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|