如何删除文件名？

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 

编辑：固定每下面的注释语法。