可以通过下面的Xtra来实现“Save As”对话框，对话框供用户交互，输入的文件名字返回后续的程序拷贝文件或者写出文件。
1. FileIO Xtra
set myFile = new(xtra ‘‘fileio‘‘)
set theFile = displayOpen( myFile )
set myFile = 0 set myFile = new(xtra ‘‘fileio‘‘)
set theFile = displaySave( myFile, ‘‘Title‘‘, ‘‘Default File Name‘‘)
set myFile = 0
推荐使用此方法。
2. Buddy API
set theFile = baGetFilename( ‘‘Save‘‘, ‘‘C:‘‘, ‘‘Filename‘‘, ‘‘Filters│*.*‘‘, Flags, ‘‘Instruction‘‘, Allow Folder Selection, X-Location, Y-Location )
注意：这里的save参数改成open就是返回打开文件的文件名称了。
下面的脚本实现拷贝功能。
1. FileIO Xtra的写文件功能参考这里：FileIO Xtra应用实例
2. 利用Buddy API拷贝文件：
set OK = baCopyFile( theFile , "c:my.dat" , "IfNewer" )
这里theFile是上面脚本返回的对话框输入的文件名称，c:my.dat是目标文件名。
相关附件(右键另存)
在光盘中模拟文件“另存为”功能
发布: 2007-1-25 16:17 | 作者: amith | 来源: aougu.net | 查看: 155次