Změna přípony souboru

Funkce:

 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")

Zpět

Autor: The Bozena