VB获取文件完整绝对路径

来源：百度知道 编辑：UC知道 时间：2024/09/24 04:12:39
我想设计一个程序，当用Dialog一次打开多个文件时，获得这些文件的完整路径，并将获得的路径写入到程序所在文件夹下的st.ini文件中
1.当St.ini文件不存在时自动建立
2.每次运行程序后从st.ini中获取路径信息并将他们用AddItem的方法添加到List1中
3.当单击list1 中的列表时，Label1.显示单击list1上反白选择的文字。
请给出源代码

如果好的话再追加你50分，谢谢。

'添加一个Microsoft Common Dialog Control 6.0部件
'添加一个CommandButton控件
'添加一个ListBox控件
'添加一个Label控件
'------------------------------------------------

'读写INI文件
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function SaveINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lplFileName As String) As Long

'读写INI文件
Function GetINI(AppName As String, KeyName As String, filename As String) As String
Dim RetStr As String
RetStr = String(10000, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "&q