VFP 愛用者社區

[KKKLYNN]

各位好
由於server上目錄結構一直在變更
於檔案複製時有些困擾
使用xcopy 有長命名檔案的問題
使用adir()僅能將特定目錄檔案節錄出來
又不想用壓縮檔(rar)
不知有何方式將目錄名稱(含子資料夾)取出
使用copy file來處理
以上謝謝
敬請協助與提個方向

[小賴]

試試 FileSystemObject 物件
fs=CreateObject("Scripting.FileSystemObject")

可是我覺得ADIR()就可處理 ; 並不會有您說的問題 ;
最多搭配遞迥應可處理

[garfield]

參考 http://vfp.sunyear.com.tw/viewtopic.php?t=3927&highlight=adir
可將檔案名轉成TABLE

[KKKLYNN]

了解!
我來試試!
之前我只做到第一層目錄取出
後續多層目錄沒想到要做
謝謝!

[impotence]

如果你只想要短路徑 ...

***聲明：這個不是我寫，非常有用！
*WINDOWS長路徑轉換成合法的DOS短路徑名
FUNCTION GetShortPathName
LPARAMETERS lcPath
Declare integer GetShortPathName in kernel32.dll String lpszLongPath, String @lpszShortPath, integer cchBuffer
Private lcShortName, lnLength, lnResult
lcShortName = SPACE(260)
lnLength = LEN(lcshortname)
lnResult = GetShortPathName(lcPath, @lcShortName, lnLength)
lcShortName = LEFT(lcShortName,lnResult)
CLEAR DLLS GetShortPathName
RETURN lcShortName
ENDFUNC

[KKKLYNN]

謝謝啦
不錯的工具!
收納了