在我的VB6代码中,我有声明
Open CommonDialog.FileName For Input As #intFileNum
问题是CommonDialog.FileName返回一个完整的路径,而VB6 Open命令只需要一个文件名.例如,如果路径是C:\ temp\file_name.csv,则CommonDialog.FileName将返回C:\ temp\file_name.csv,但VB6中的此Open语句仅适用于file_name.csv
我可以把
Dim Path As String
Path = CommonDialog.FileName
Open Path For Input As #intFileNem
我只需要知道如何在最后一个反斜杠"\"之前删除Path中的所有内容.VB6库中有什么东西可以做到这一点吗？
路径是从常用的对话框和代码中提取的
CommonDialog.DialogTitle = "Browse. . ."
CommonDialog.Filter = "CSV File (*.csv)|*.csv"
CommonDialog.ShowOpen
所以我想如果有人知道,我应该要求使用ShowOpen来获取公共子路径,然后在后面的函数中使用Open命令路径中的文件名并不是它本身的任何问题,对吧？
为了便于阅读,我必须在这里展示Ghost.我使用intFileNum作为long
Dim intFileNum As Long
Open Path1 For Input As #intFileNum
Do Until EOF(intFileNum)
Line Input #intFileNum, LineEnd
希望这些信息可以使情况更有意义