Změna přípony souboru
Function ChgFileExt(sFile As String, sNewExt As String) As String
Dim lRet As Long
If sFile = "" Then Exit Function
If lRet=0 Then lRet=Len(sFile)+1
ChgFileExt=Left$(sFile,lRet-1) & "." & sNewExt
End Function
Příklad volání:
MsgBox ChgFileExt("url.doc","txt")
