Kodları lazım 
(Ozelden)
(Ozelden)
YARDIM Uzantı Cevirici
- Konuyu başlatan NickyRomero
- Başlangıç tarihi
Dosya uzantısı değiştirme
How to change file extention in vb6 | DaniWeb
[RESOLVED] Change file extension-VBForums
How to change file extention in vb6 | DaniWeb
[RESOLVED] Change file extension-VBForums
yani sen şimdi belirlediğin dosyanın uzantısını değiştirmeye çalışmıyon mu?
How to change file extention in vb6 | DaniWeb
Public Function ChangeFileExt(ByVal aFilename As String, ByVal NewExt As String) As Boolean
Dim p As Long
Dim bp As Long
Dim nFileName As String
On Error Resume Next
ChangeFileExt = False
If aFilename = "" Then Exit Function
p = 0
Do
bp = p
p = InStr(p + 1, aFilename, ".", vbBinaryCompare)
Loop Until p = 0
If bp > 0 Then
nFileName = Left(aFilename, bp - 1)
Else
nFileName = aFilename
End If
nFileName = nFileName & "." & NewExt
Err.Clear
Name aFilename As nFileName
If Err.Number = 0 Then ChangeFileExt = True
End Function
Private Sub Command1_Click()
Call ChangeFileExt("D:\abc.txt", "jx") ' from .txt become .jx
End Sub
