鹭燕药业:PB 怎样将用户选择后的路径写入记事本(下面自己写代码的,不知哪有问题写不进去)

来源:百度文库 编辑:高校问答 时间:2024/05/08 11:47:41
string music_filename,docpath,docname[]
integer li_rtn
li_rtn=GetFileOpenName("选择音乐",docpath,docname[],"","MP3音乐(*.mp3),*.mp3,"+"Wma音乐(*.wma),*.wma,"+"所有文件(*.*),*.*","C:\车辆管理信息系统",18)
if li_rtn < 1 then return //用户取消选择
music_filename=docpath
ole_1.InsertFile(music_filename)
ole_1.Activate(InPlace!)

integer li_FileNum
li_FileNum = FileOpen("C:\车辆管理信息系统\保存路径.txt",LineMode!,Write!,LockWrite!,Replace!)
FileWrite(li_FileNum, music_filename)