VB6中如何仅提取特定文件内容？

本文共计292个文字，预计阅读时间需要2分钟。

如何仅从文件的完整路径中获取文件名？MY path: C:\Documents and Settings\Arshad\My Documents\ravi.txt看看这个：Retrieve Filename without Path or Extension.以下是如何获取链接的功能：

Public Function GetFileName()

如何仅从文件的完整路径获取文件名？

MY path - C:\Documents and Settings\Arshad\My Documents\ravi.txt 看看这个： Retrieve Filename without Path or Extension.

以下是上述链接的功能：

Public Function GetFileName(flname As String) As String 'Get the filename without the path or extension. 'Input Values: ' flname - path and filename of file. 'Return Value: ' GetFileName - name of file without the extension. Dim posn As Integer, i As Integer Dim fName As String posn = 0 'find the position of the last "\" character in filename For i = 1 To Len(flname) If (Mid(flname, i, 1) = "\") Then posn = i Next i 'get filename without path fName = Right(flname, Len(flname) - posn) 'get filename without extension posn = InStr(fName, ".") If posn <> 0 Then fName = Left(fName, posn - 1) End If GetFileName = fName End Function

输入时

C:\Documents and Settings\Arshad\My Documents\ravi.txt

这个函数返回

ravi

该函数被称为：

Dim FileName As String FileName = GetFileName("C:\Documents and Settings\Arshad\My Documents\ravi.txt")