使用保存文件对话框获取文件名的问题

 http://www.qqgb.com/program/vb/vbjq/program_176529.html

 

使用API调用保存文件对话框，
使用
ofn.lpstrFile="TR.bmp"
初始化文件名为 "TR.bmp"
但当在对话框中修改文件名后若长度不是11就会有问题，
如修改为“TR1.bmp” 后获得的文件名为"TR1.bm"
修改为“T.bmp”后获得的文件名为“T.bmpp”

 

 

第1个回答

VBScript code

   
   




Private Function TrimNullChar(S As String) As String

    Dim i As Integer

    i = InStr(S, vbNullChar)

    If i > 0 Then

        TrimNullChar = Left(S, i - 1)

    Else

        TrimNullChar = S

    End If

End Function





......



ofn.nMaxFile = 255

ofn.lpstrFile = "TR.bmp" & Space(254 - 6)



If GetSaveFileName(ofn) Then

    MsgBox Trim(TrimNullChar(ofn.lpstrFile))

End If

第2个回答
问题解决了，方法和你的相似 
取值用的是 
strFileName=trim(ofn.lpstrFile) 
strFileName=left(strFileName,instr(strFileName,chr(0))-1)