SaveDialog1文件保存后立即打开时碰到的问题

sumury 2005-03-27 10:54:55

文件成功保存后，用ShellExecute(0,nil,SaveDialog1.FileName,nil,nil,0)打开
此时程序报错， Incompatible types: 'TFileName' and 'PAnsiChar'
若改成ShellExecute(0,nil,’c:\1.xls’,nil,nil,0)就可以正常打开了
请问怎么解决这个问题，谢谢。

...全文

78 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

ysai 2005-03-28

打赏
举报

回复

ShellExecute(0,nil,PChar(SaveDialog1.FileName),nil,nil,0)

sumury 2005-03-28

打赏
举报

回复

谢谢

VB 纯API 打开保存对话框 Public Function FileDialog(FormObject As Form, SaveDialog As Boolean, ByVal Title As String, ByVal Filter As String, Optional ByVal FileName As String, Optional ByVal Extention As String, Optional ByVal InitDir As String) As String Dim OFN As OPENFILENAME Dim r As Long If Len(FileName) > MAX_PATH Then Call MsgBox("Filename Length Overflow", vbExclamation, App.Title + " - FileDialog Function"): Exit Function FileName = FileName + String(MAX_PATH - Len(FileName), 0) With OFN .lStructSize = Len(OFN) .hwndOwner = 0 .hInstance = App.hInstance .lpstrFilter = Replace(Filter, "|", vbNullChar) .lpstrFile = FileName .nMaxFile = MAX_PATH .lpstrFileTitle = Space$(MAX_PATH - 1) .nMaxFileTitle = MAX_PATH .lpstrInitialDir = InitDir .lpstrTitle = Title .flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT Or OFN_CREATEPROMPT .lpstrDefExt = Extention End With Dim L As Long L = GetTickCount If SaveDialog Then r = GetSaveFileName(OFN) Else r = GetOpenFileName(OFN) If GetTickCount - L < 20 Then OFN.lpstrFile = "" If SaveDialog Then r = GetSaveFileName(OFN) Else r = GetOpenFileName(OFN) End If If r = 1 Then FileDialog = Left$(OFN.lpstrFile, InStr(1, OFN.lpstrFile + vbNullChar, vbNullChar) - 1) End Function

VS2008下的一个小程序。类似于word中点击保存，然后打开一个保存文件对话框。当存在相同文件时，提示是否覆盖。

vb2008 savedialog opendialog 练习文本打开与保存实例付源码应用程序

VB保存文件,利用DIAIOG对话控件,简单实用没有复杂程序

VB 保存对话框的实例 VB 保存对话框的实例

数据库相关

2,507

社区成员

88,453

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章