Merhaba arkadaşlar,

Excelde yazılmış bir kodum var fakat visual basic programım yok
Rica etsem kodu derleyip exe yapabilir misiniz?

Teşekkurker...

*** kod: ***
Dim aranan As String

Sub Dosya_Listele()
aranan = InputBox("aranan kelimeyi yazın.", "UYARI!", "")
If aranan = "" Then
Exit Sub
End If
Set Klasor = CreateObject("shell.application").BrowseForFolder( 0, "Kaynak Dosyaları İceren Klasoru Secin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla
If Right(Kaynak, 1) "\" Then Kaynak = Kaynak & "\"
Liste (Kaynak)
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lutfen Kaynak Klasor Secimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub
Private Sub Liste(yol As String)
Dim fL As Object, fs As Object, f As Object, j As Long, n As Long
Set fL = CreateObject("Scripting.FileSystemObject").GetFold er(yol).subfolders
Set fs = CreateObject("Scripting.FileSystemObject").GetFold er(yol).Files
For Each Dosya In fs
If UCase(Right(Dosya.Name, 3)) = UCase("MAI") Then
say = 0
Open Dosya For Input As #1
Do While Not EOF(1)
Line Input #1, a
On Error Resume Next
adres = Trim(a)
son1 = InStr(InStr(Trim(adres), aranan), adres, "", vbTextCompare)
If son1 0 Then
say = 1
Exit Do
End If
Loop
Close
If say = 1 Then
CreateObject("Scripting.FileSystemObject").DeleteF ile Dosya
End If
End If
Next
On Error GoTo sonraki
For Each f In fL
Liste (f.Path)
sonraki:
Next
Set fL = Nothing
End Sub
__________________