Kod Hatası

[kkkmert]

Chip dergisine sormuş oldugum disk birleştirme makalesinde kod hatası var ilgilenen yok bende fazla koddan anlamıyorum bu kodlar çalışmıyor acaba nerede hata yapmış olabilirler yardımcı olabilirmisiniz hem kodlaı hemde konu aştıgım başlıgı iletiyorum.


windows scrip host hatası veriyor.

Set-objShell-=-CreateObject("Wscript.Shell")
Set-objWshScriptExec-=-objShell.Exec("defrag.exe-c:--a")
strOutput=objWshScriptExec.StdOut.ReadAll
strSearch-=-"Bu-birimi-birleştirmenize- gerek-yok "
If-InStr(1,-strOutput,-strSearch)-=-0-Then-objShell.Run-("defrag.exe-c:")
End-If

[/url][/IMG]


http://www.chip.com.tr/ipucu/Disk-b...mek_222.html

http://www.chip.com.tr/forum/Otomatik-bir-Windows_t101266.html

 

[kkkmert]

Bu konu hakkında bilgisi olan birisi yok mu acaba ?

 

[kkkmert]

Bu kodlardana anlayan birisi yokmu sitede bu kodlar vısul basic olması lazım çünkü dfrg.vbs olarak kayıt yap diye not duşmuşler buradaki vbs sanırım visul basıc olması lazım.

 

[Ayhan Ercan]

Merhaba

Aşağıdaki gibi deneyiniz..

Sub disk_birlestir()
Set objShell = CreateObject("Wscript.Shell")
Set objWshScriptExec = objShell.Exec("defrag.exe c:a")
strOutput = objWshScriptExec.StdOut.ReadAll
strSearch = "Bu birimi birleştirmenize gerek yok "
If InStr(1, strOutput, strSearch) = 0 Then objShell.Run ("defrag.exe c:")
End Sub

 

[kkkmert]

Ayhan bey kod hala hata veriyor farklı bilgisaylarda denememe ragmen siz bu kodu kendi bilgisayarınızda çalıştırdınız mı acaba.

[/url][/IMG]

 

[Levent Menteşoğlu]

Bu kodu bir excel dosyasının VB editöründe normal modül içine kopyalayın ve bir butona bağlayarak çalıştırmayı deneyin.

 

[kkkmert]

Levent bey ben bu kodla otamatik olarak defrang yani disk birleştirme yapmak istiyorum amacım bu.Konu aştıgım başlıktada belirttim.Zamanlanmış görevlere ekliyecem kendisi otomatik olarak yapacak daha sonra ben bu kodları farklı otomatik işlemlerdede kullanacam ama ilk etapta şu defrang yani disk birleştirmeyi otomatik istediğim zaman çalıştırabilsem bi.