Hi again,
Does anyone know how to change file extension?
Please help me.
Thank You
Sawamura
9
Junior Poster in Training
Recommended Answers
Jump to PostTry this :
Public Function ChangeFileExt(ByVal FileName As String, ByVal Extention As String) Dim str() As String, NewFile As String If InStr(1, FileName, ".") Then str = Split(FileName, ".") NewFile = Replace(FileName, str(UBound(str)), Extention) Name FileName As NewFile Else Name FileName As FileName & "." & Extention …
All 2 Replies
Jx_Man
987
Nearly a Senior Poster
Featured Poster
Try this :
Public Function ChangeFileExt(ByVal FileName As String, ByVal Extention As String)
Dim str() As String, NewFile As String
If InStr(1, FileName, ".") Then
str = Split(FileName, ".")
NewFile = Replace(FileName, str(UBound(str)), Extention)
Name FileName As NewFile
Else
Name FileName As FileName & "." & Extention
End If
End Function
Private Sub Command1_Click()
Call ChangeFileExt("D:\test.jx", "txt")
End Sub
Sawamura
commented:
Awesome!!!!
+3
Sawamura
9
Junior Poster in Training
Wow..thats really awesome codes sir..
Thank you very much.
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.