如何删除文件名？

Question

使用VB6

我想删除文件名的最后5个单词，然后我想给出其他文件名。\

代码。

Name FileName As NewFileName

以上代码正在重命名，但我不想重命名，我想删除文件名的最后5个字母。

预期产出

文件名

sufeshcdk.txt - I want to take (sufeshcd) only
Modifyulla.txt - I want to take (Modifyul) only

怎么做？

需要VB6代码帮助。

Answer 1

你走了。

private function RemoveLast5(FileName as string) as String
    if len(FileName) > 5 then 
        RemoveLast5 = left$(FileName, Len(FileName) - 5)
    else
        RemoveLast5 = FileName
    end
end function


dim FileName as string
FileName = "Modifyulla.txt"

dim NewFileName as string 
NewFileName = RemoveLast5(FileName)

Name FileName As NewFileName

Answer 2

未经测试，但这是基本想法...

FileNameLength = Len(FileName)
NewFileName = Mid$(FileName, 1, FileNameLength - 5)
Name FileName As NewFileName

编辑：修改了以下评论的语法。