YARDIM Uzantı Cevirici

Tarihe göre sırala Oylara göre sırala
C

CETQ

Uzman üye
28 Şub 2011
1,297
0
NickyRomero' Alıntı:
isime Yaramadı . .GUNCEL!
Genişletmek için tıkla ...

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
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.