如何删除文件名?
使用VB6如何删除文件名?
我要删除的文件名的最后5个字,然后我想给这样的其他文件名。\
代码。
Name FileName As NewFileName
上述代码正在重命名,但我不想重命名,我想删除文件名的最后5个字母。
期望输出
名
sufeshcdk.txt - I want to take (sufeshcd) only
Modifyulla.txt - I want to take (Modifyul) only
如何做到这一点?
需要VB6代码帮助。
你在这里。
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
未经检验的,但是这是基本的想法...
FileNameLength = Len(FileName)
NewFileName = Mid$(FileName, 1, FileNameLength - 5)
Name FileName As NewFileName
编辑:固定每下面的注释语法。
将错误显示为“无效的过程调用或参数”。我给了Filenamelength = myfilename – Gopal 2009-10-19 05:02:13
NewFileName = Mid $(FileName,1,FileNameLength - 5) – 2009-10-19 05:09:33
它在哪一行发生错误?另外,不要忘记'Len()'。 – 2009-10-19 05:10:23
“5个字”或“5个字符”(您的例子似乎暗示了后者)? – 2009-10-19 05:09:46
如果你用Modifyul替换char'a'如何在最后一个Modifyula中添加? – anishMarokey 2009-10-19 05:13:56