Açık olan not defterlerinin Kapatılması

[northcyprus]

Sayın hocalarım aşşağıdaki makro da açık olan not defterlerini kapatıp sadece seçtiğimi not defterinin açık olmasını istiyorum ama bir türlü halledemedim neredeyanlışlık yapıyorum bulamadım yardımlarınızı bekliyorum saygılarımla.


If müzikçalar.WindowsMediaPlayer1.currentMedia.SourceUrl = "D:\MP 3 MUZIKLER\Ahmet kaya\Ahmet Kaya - Basim Belada.mp3" Then

Shell ("taskkill /F /IM notepad.exe") (burayı yanlış yapıyorum galiba)

CreateObject("Shell.Application").Open "D:\MP 3 MUZIKLER\Ahmet kaya\Ahmet Kaya - Basim Belada.txt"

End If

böyle olunca hepsini kapatıyor

CreateObject("Shell.Application").Open "D:\MP 3 MUZIKLER\Ahmet kaya\Ahmet Kaya - Basim Belada.txt"
açık kalmasını nasıl sağlayabilirim.

 

[Zeki Gürsoy]

Komut satırına taskkill /? yazarsanız ihtiyacınız olan anahtar(lar)ı göreceksiniz. Ayrıca, txt dosyasını Shell fonksiyonu ile başlatırsanız, geriye Process Id (PID) döndürdüğünü de hatırlatmak isterim.

.

 

[northcyprus]

anladım zeki gürsoy hocam. cevabınız için teşekürler.

Application.Wait (Now + TimeValue("00:00:02"))

zamanlama ekleyince sorun çözüldü çok teşekürler.

If müzikçalar.WindowsMediaPlayer1.currentMedia.SourceUrl = "D:\MP 3 MUZIKLER\Ahmet kaya\Ahmet Kaya - Basim Belada.mp3" Then
Shell ("taskkill /F /IM notepad.exe")
Application.Wait (Now + TimeValue("00:00:02"))
CreateObject("Shell.Application").Open "D:\MP 3 MUZIKLER\Ahmet kaya\Ahmet Kaya - Basim Belada.txt"

End If