Dosyayı Cd den yazı tipleri klasörüne kopyalamak

Katılım
11 Mayıs 2005
Mesajlar
104
Merhaba arkadaşlar,
Aşağıdaki kodlarla Cd açılınca,"Deneme.ppt" dosyası otomatik olarak çalıştırılabiliyor.
Buradan hareketle; önce cd deki bir font dosyasını "yazı tipleri" klasörüne kopyalamak,
sonrada deneme.ppt dosyasını çalıştırmak istiyorum. Acaba mümkünmüdür?
Kod:
[autorun]
open=Starter.bat

Kod:
@echo off
title=Starter
echo Bu pencereyi simdi kapatabilirsiniz ....
Deneme.ppt
exit
Kod:
[autorun]
open=Starter.bat

Kod:
@echo off
title=Starter
echo Bu pencereyi simdi kapatabilirsiniz ....
Hand Writing yazı tipi dosyasını yazı tipleri klasörone koyala
Deneme.ppt
exit
 
Katılım
11 Mayıs 2005
Mesajlar
104
Değerli Arkadaşlar,
Belki problemde belirtilen istek , "kötü amaçlarla kullanılabilir" düşüncesiyle cevaplanmıyor olabilir...
Ancak; PoverPaint sunusunda el yazısı karakteri kullandım. Okuldaki veya başka bilgisayarlarda aynı yazı karakteri olmadığı için yaptığım çalışmalar bozuk görünüyor. Dolayısıyla Cd açılır açılmaz yazı dosyasının ilgili klasöre kopyalamasını ve daha sonra da Ppt. dosyasının başlamasını istiyorum.
Tekrar selamlar
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,313
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Merhaba;

Sanırım bu soru, aşağıdaki linkte yer alan konunun devamı gibi....

http://www.excel.web.tr/viewtopic.php?t=3845

O halde benzer bir örnek vererek, orada kaldığımız yerden devam edersek;

1) MyFolder klasörünün içinde bir de Test.txt olduğunu kabul edersek,

2) CD çalıştırılmaya başlandığında sözkonusu MyFolder\Test.txt dosyasının bilgisayarda C:\Temp klasörünün altına kopyalanmasını sağlamak için Starter.bat dosyasına ufak bir satır daha ilave etmek gerekiyor.

3) Sonuçta, Starter.bat dosyasının içeriği aşağıdaki gibi bir şey olmalı...

Kod:
@echo off 
title=Starter 
copy MyFolder\Test.txt C:\Temp
if exist MyFolder\Deneme.xls ( 
echo Ilgili dosya bulundu ! 
echo Isleme devam ediliyor .... 
goto ResumeSub 
) else ( 
echo Ilgili dosya bulunamadi !!! 
echo Bu pencereyi simdi kapatabilirsiniz .... 
pause 
) 
exit 
:ResumeSub 
echo Bu pencereyi simdi kapatabilirsiniz .... 
MyFolder\Deneme.xls 
exit
CD' e yazdırılacak içerik ekte yer almaktadır.
 
Katılım
11 Mayıs 2005
Mesajlar
104
Sayın Raider,
Yukarıdaki kodlar da size ait zaten... Ancak sizden aldığımı yazmamakla kabalık yaptım galiba. :oops: Kodlarınızı uygulamaya çalışacağım.
Saygılarımla
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,313
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
milhanalp' Alıntı:
Ancak sizden aldığımı yazmamakla kabalık yaptım galiba.
Ben öyle bir imada bulunmadım, sadece konunun bütünlüğünü korumak açısından sizin orjinal mesajınıza link verdim.

Kolay gelsin.
 
Katılım
11 Mayıs 2005
Mesajlar
104
Sayın Raider,
Sanal ortamlarda bazen bu tip yanlış anlamalar olabiliyor. Dolayısıyla ben vazifemi yapmış olayım...
Kodları aşağıdaki gibi uyarladım. Kendi bilgisayarımda başarılı oldu.Yarın başka bir bilgisayarda deneyeceğim. Çok teşekkür ediyorum. Sağolun

Kod:
@echo off 
title=Starter 
copy kayra.ttf C:\WINDOWS\Fonts\
echo Bu pencereyi simdi kapatabilirsiniz .... 
Eee.pps
exit
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,313
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
milhanalp' Alıntı:
Kodları aşağıdaki gibi uyarladım. Kendi bilgisayarımda başarılı oldu.Yarın başka bir bilgisayarda deneyeceğim.
.......
copy kayra.ttf C:\WINDOWS\Fonts\
...
Sözkonusu hazırladığınız CD'i değişik bilgisayarlarda deneyeceğinize göre, değişik bilgisayarlarda, değişik Windows versiyonları olabilir.

Bu nedenle, yukarıdaki alıntıda kırmızı ile işaretlediğim dosya yolu, her işletim sisteminde bu şekilde olmayabilir.

Kimisinde;

C:\WINDOWS\Fonts

bir başkasında ise;

C:\WinNt\Fonts

gibi olabilir.

Bu durumda yapılması gereken, önceki mesajlarda yer alan Starter.bat dosyasındaki kodlarda basit bir If - Else - Then bloğu ile, her iki durumu da araştırıp, bulduğu C:\Win***\Fonts klasörüne, ilgili dosyayı kopyalamak gerekecektir.

Yukarıdaki mesajımda yer alan örneğe devam edersek, Starter.bat dosyasına bu kez aşağıdaki kodları yerleştirdiğimiz takdirde;

Bilgisayarda C:\Folder1 ve C:\Folder2 klasörlerinin varlığı tahkik edildikten sonra, bunlardan hangisi bilgisayarda mevcutsa, CD'nin içindeki MyFolder klasörü içinde yer alan Test.text dosyası, o bulunan klasöre kopyalanacaktır.

Kodları çalıştırmadan önce, bilgisayarda bu iki klasörden birini oluşturun. Kodları denemek için, mutlaka ilgili dosyaları CD'e yazdırdıktan sonra deneme yapmanıza gerek yok tabii :mrgreen: . Bu mesaj ekindeki dosyaları, bilgisayarda herhangibir yere yerleştirip, orada Starter.bat dosyasını çalıştırmanız yeterli olacaktır.

Starter.bat dosyasının kodları:

Kod:
@echo off 
title=Starter 
if exist C:\Folder1 ( 
copy MyFolder\Test.txt C:\Folder1
) else (
copy MyFolder\Test.txt C:\Folder2
)
if exist MyFolder\Deneme.xls ( 
echo Deneme.xls dosyasi bulundu ! 
echo Isleme devam ediliyor .... 
goto ResumeSub 
) else ( 
echo Deneme.xls dosyasi bulunamadi !!! 
echo Bu pencereyi simdi kapatabilirsiniz .... 
pause 
) 
exit 
:ResumeSub 
echo Bu pencereyi simdi kapatabilirsiniz .... 
MyFolder\Deneme.xls 
exit
CD'e yazdırılacak dosyalar ekte yer almaktadır.
 
Katılım
11 Mayıs 2005
Mesajlar
104
Sayın Raider,
İşin bu yönünü hiç düşünmemiştim doğrusu... Kodlarınızı çözebildiğim kadar ve anlayabildiğim kadar kendime uyarladım. Fakat ilginç bir durum var. Kopyalayacağım ve otomatik açacağım dosyalar CD de bir klasörün içinde olursa kodlar çalışmıyor. Aşağıda gördüğünüz gibi kayra.ttf ve Eee.pps dosyaları MyFolder klasörünün içinde değil... Bu şekilde çalışıyor. :shock:

Kodları denemek için, mutlaka ilgili dosyaları CD'e yazdırdıktan sonra deneme yapmanıza gerek yok tabii .
Kodları denerken en az 15 defa Cd ye yazdırmıştım. Niye daha önce söylemediniz? :D :(

Saygılarımla

Kod:
@echo off 
title=Starter 
if exist C:\WINDOWS\Fonts ( 
copy kayra.ttf C:\WINDOWS\Fonts 
) else ( 
kayra.ttf C:\WinNt\Fonts
) 
if exist Eee.pps ( 
echo Eee.pps dosyasi bulundu ! 
echo Isleme devam ediliyor .... 
goto ResumeSub 
) else ( 
echo Eee.pps dosyasi bulunamadi !!! 
echo Bu pencereyi simdi kapatabilirsiniz .... 
pause 
) 
exit 
:ResumeSub 
echo Bu pencereyi simdi kapatabilirsiniz .... 
Eee.pps
exit
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,313
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
milhanalp' Alıntı:
if exist C:\WINDOWS\Fonts (
copy kayra.ttf C:\WINDOWS\Fonts
) else (
copy kayra.ttf C:\WinNt\Fonts
)
Yukarıdaki alıntıda kırmızı ile işaretlediğim yeri, kodlarda unutmuşunuz.

Belki sorun bu olabilir bilemiyorum ama, bildiğiniz gibi ben kodlarımı denemeden kolay kolay foruma yollamam :mrgreen:

Yani, kodlarımı tekrar denedim ve MyFolder klasörünün içindeki Test.txt dosyasını, bilgisayarımda ilgili klasörün altına kopyaladım.

Sizdeki sorun nedir, şu anda bir şey söyleyemeyeceğim... ama bu şekilde sorununuzu çözdüyseniz, bu da iyi.

Ã?nemli olan amacınıza ulaşmak. :mrgreen:
 
Katılım
11 Mayıs 2005
Mesajlar
104
bildiğiniz gibi ben kodlarımı denemeden kolay kolay foruma yollamam :mrgreen:
Sayın Raider,

Bundan eminim. :bravo: Ancak ben gecenin öteki yarısında birşeyler yapmaya uğraşırken gözden kaçırmış olabilirim, daha doğrusu aklımın ermediği birçok şey yapıyorum. Dolayısıyla yanlış yapma ihtimalim çok yüksek. İlginiz ve sabrınız için tekrar teşekkür ediyorum.
 
Üst