OCX dosyalarını istediğim klasöre kopyalama.

[Orion1]

Merhaba.
İçinde bulunduğu klasörden OCX dosyalarını C:\Deneme klasörü içersine kopyalamak istiyorum.
Döngüye girecek.Kaç tane OCX dosyası varsa kopyalayacak.
Sonuçtada kaç tane ocx dosyasının kopyalandığın mesajbox'la bildirecek.
Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Evren bey,

Aşağıdaki kodu denermisiniz.

Sub OCX_KOPYALA()
    Dim Klasör As Object
    Dim Dosya As Object
    Dim FSO As Object
    Dim Dosya_Yolu As String
    Dosya_Yolu = "C:\DENEME"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Klasör = CreateObject("Scripting.FileSystemObject")
    Set Dosya = Klasör.GetFolder(Dosya_Yolu)
    
    If Not FSO.FolderExists(Dosya_Yolu) Then
    FSO.CreateFolder (Dosya_Yolu)
    End If
    
    Klasör.CopyFile "C:\WINDOWS\system32\*.OCX", "C:\DENEME"
    MsgBox "Kopyalanan *.ocx uzantılı dosya sayısı;" & Chr(10) & Chr(10) & Dosya.Files.Count
End Sub

 

[Orion1]

Korhan bey 2nci satırda 16ncı karakterde hata veriyor.
Not:
Dosya vbs uzantılı dosya olacaktı.

 

[tahsinanarat]

.* uzantılı dosyalar istenilen klasöre

Sevgili hocam, bu sitede sizlerden öğrendiğim bilgiler doğrultusunda istediğiniz mantıkla bir dosya hazırlamaya çalıştım, umarım beğenirsiniz, Kolay gelsin

vba şifresi ve kaydetme şifresi 123

 

[Orion1]

Sevgili hocam, bu sitede sizlerden öğrendiğim bilgiler doğrultusunda istediğiniz mantıkla bir dosya hazırlamaya çalıştım, umarım beğenirsiniz, Kolay gelsin

vba şifresi ve kaydetme şifresi 123

Sayın tahsinarat teşekkür ederim.
Yalnız ben VBScript kodu istemiştim.Dosya Uzantısı Vbs olacaktı.NotePad'de yazabiliyorsunuz.
Uzantısınıda farklı kaydetten xxx.vbs olarak kaydediyorsunuz.

 

[Haluk]

Evren bey;

Birincisi; VBScript dilinde "Dim XXXX as YYYY" gibi değişken tanımlaması yapılmaz.. Dolayısıyle, o satırların hepsini silin.

İkincisi; VBScript dilinde kullandığınız değişken adlarında kesinlikleTürkçe karakter kullanmamaya dikkat edeceksiniz.

Üçüncüsü; VBScript ile hazırladığınız bir dosyada eğer prosedüre bir ad vermişseniz (Korhan bey'in kodundaki OCX_KOPYALA gibi....) o zaman bu prosedürü çalıştırmak için, prosedürü adıyla çağırmanız gerekir.

Yukarıdaki açıklamaların ışığında, Korhan bey'in VBA dilindeki kodunu VBS dosyası olarak kullanmak istediğinizde, yapılması gereken revizyon aşağıdaki gibidir;

Sub OCX_KOPYALA()
    Dosya_Yolu = "C:\DENEME"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(Dosya_Yolu) Then
       FSO.CreateFolder (Dosya_Yolu)
    End If
 
    Set Klasor = CreateObject("Scripting.FileSystemObject")
    Set Dosya = Klasor.GetFolder(Dosya_Yolu)
      
    Klasor.CopyFile "C:\WINDOWS\system32\*.OCX", "C:\DENEME"
    MsgBox "Kopyalanan *.ocx uzantılı dosya sayısı;" & Chr(10) & Chr(10) & Dosya.Files.Count
End Sub
'
Call OCX_KOPYALA

.

 

[tahsinanarat]

Hocam, dediğiniz dosya olduğunda eklermisiniz, merak ettim.

 

[Haluk]

Hocam, dediğiniz dosya olduğunda eklermisiniz, merak ettim.

Pardon, bana mı dediniz?

Eğer bana diyorsanız, sözkonusu dosyanın içindeki kodlar (orjinali Korhan bey'e ait) yukarıdaki mesajımda.

Yeni bir Notepad dosyası oluşturun, dosyaya herhangibir isim verin, uzantısını vbs yapın, kaydedip, kapatın.

Daha sonra dosyanın üzerinde çift tıklayıp, çalıştırın...

.

 

[tahsinanarat]

Sn. Haluk hocam note pad "Not Defteri" aynı şeyler değilmi, not defteri ne kopyalarak dediğiniz gibi denemiştim, ama olmadı, bu açıdan sn.evren gizlen hocama dosyanın olmuş halini eklemesini rica etmiştim. şu an tekrar denedim. olmadı. İlginize teşekkürler.

 

[Haluk]

Tahsin bey;

Sözkonusu VBS dosyası ektedir. (Not: Orjinal kodda gözüme çarpan bir-iki düzeltmeyi de yaptım.)

Çift tıklayıp çalıştırabilirsiniz.... Eğer yine de olmuyorsa, belki PC'de WSH aktif edilmemiş olabilir.


.

 

[tahsinanarat]

Sn. Haluk hocam gönderdiğiniz test dosyası oldu, şimdi yeni birşey daha öğrenmiş bulunmaktayım, Emeği geçen bütün hocalarıma teşekkür ederim. Saygılar.

Bu arada iki kod arasındaki farkı incelerken fark ettim, ben ilk denememde '
Call OCX_KOPYALA kısmını fazlalık diye düşündüğümden yazmamıştım, oysa önceki dosyada bu şekilde çalışıyormuş, olsun öğrenmeler bu şekilde olur zaten. Tekrar teşekkürler

 

[Orion1]

Haluk hocam verdiğiniz birbirinden değerli bilgiler için ve Kodlar için teşekkür ederim.
Acaba şöyle bir şey istesem diyorum.
Kaynak yolu , vbs dosyasının içinde bulunduğu yol olarak belirtebilirmiyiz?
Vbs dosyası hangi klasörün içinde bulunuyorsa o klasörün içindeki ocx dosyaları C:\Deneme klasörü içersine kopyalansın.
Tekrardan teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Haluk bey verdiğiniz değerli bilgiler için bende teşekkür ederim.

 

[Haluk]

Ben de size teşekkür ederim beyler.

Acaba şöyle bir şey istesem diyorum.
Kaynak yolu , vbs dosyasının içinde bulunduğu yol olarak belirtebilirmiyiz?

Evren bey, ekli revizyon sanırım işinizi görecektir.

.

 

[Orion1]

Ben de size teşekkür ederim beyler.




Evren bey, ekli revizyon sanırım işinizi görecektir.

.

İstediğim oldu.
Teşekkür ederim,hocam.Saygılar.

 

[Orion1]

Merhaba.
Hocam şöyle bir durum oluştu.
Eğer buluduğu klasörde hiç ocx dosyası yoksa hata veriyor.
Eğer hiç ocx dosyası yoksa
xxxx klasöründe kopyalanacak ocx dosyası/dosyaları bulunamadı.!
Diye mesaj verbilirmi?
Teşekkür ederim.

 

[Haluk]

Evren bey, buyrun;

Sub OCX_KOPYALA()
    Dosya_Yolu = "C:\DENEME"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(Dosya_Yolu) Then
       FSO.CreateFolder (Dosya_Yolu)
    End If
 
    Set Klasor = CreateObject("Scripting.FileSystemObject")
    Set Dosya = Klasor.GetFolder(Dosya_Yolu)
    on error resume next      
    Klasor.CopyFile Replace(WScript.ScriptFullname,WScript.ScriptName,"") & "*.OCX", "C:\DENEME"
    
    if err then
       msgbox Replace(WScript.ScriptFullname,WScript.ScriptName,"") & chr(13) & "klasöründe kopyalanacak OCX dosyası bulunamadı..."
       exit sub
    end if
    MsgBox "Kopyalanan *.ocx uzantılı dosya sayısı;" & Chr(10) & Chr(10) & Dosya.Files.Count
End Sub
'
Call OCX_KOPYALA

.

 

[Orion1]

Halu hocam teşekkür ederim.

 

[Orion1]

Haluk hocam bu konu ile son bir soru ve bu konu bitiyor.Böylelikle küçük bir setup programı sayenizde yapmış olacağız.
Dosyaları klasöre kopyalarken ayni zamanda regsvr32 dosyası ilede windowsa tanıntsa.Kodları bu şekilde revize ederek yollarsanız çok memnun olurum.
Tekrar teşekkür ederim.

 

[Tarkan VURAL]

Selam,
Evren Bey aşağıdaki kodlamayı kulanabilirsiniz, işinizi yapar...

Sub OCX_Copy_Run()
    On Error Resume Next
    Dim FSO
    Dim EVNShell
    Dim EVNDos
    Dim EVN1
    Dim EVN2
    Dim EVN3
    Yol = "C:\DENEME"
    Set FSO = CreateObject("Scripting.FileSystemObject")
       If Not FSO.FolderExists(Yol) Then
           FSO.CreateFolder (Yol)
       End If
    Set EVNDos = FSO.GetFolder(Yol)
        EVN1 = Replace(WScript.ScriptFullname, WScript.ScriptName, "") & "*.ocx"
            FSO.CopyFile EVN1, Yol
    If Err.Number = 53 Then
       MsgBox Replace(WScript.ScriptFullname, WScript.ScriptName, "") & vbcr & "klasöründe kopyalanacak OCX dosyası yok  ",16 , "Evren GİZLEN"
       Exit Sub
    End If
        MsgBox EVNDos.Files.Count &" adet ocx uzantılı dosya kopyalandı " ,64 , "Evren GİZLEN"
    Set EVNShell = CreateObject("WScript.Shell")
    Set EVN2 = EVNDos.Files
        For Each EVN3 In EVN2
            EVNShell.Run ("%SystemRoot%\system32\regsvr32 " & EVN3)
        Next
End Sub
Call OCX_Copy_Run