如何刪除文件名？

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 

編輯：固定每下面的註釋語法。