Bir Dosyanın Kopyasını Oluşturmak

[Dangerous Pirate]

Diyelim ki elimizde bir dosya var ve biz bunun program çalışırken kendini kopyalamasını ve bizim seçtiğimiz klasöre yerleşmesini istiyoruz. O zaman aşağıdaki kodları kullanarak bunu Visual Basic içerisinden gerçekleştirebiliriz.

Önce bir dosya hazırlıyorum. C sürücüsüne "1" adında bir klasör açtım ve içine "01.jpg" adında bir resim dosyası koydum.

Private Sub Form_Load()
 
Dim cA1 As Byte
 
Open "C:11.jpg" For Binary As #1
 
Open "C:12.jpg" For Binary As #2
 
Do While Not EOF(1)
 
Get #1, , cA1
 
Put #2, , cA1
 
Loop
 
Close #2
 
Close #1
 
End Sub

​

kod herkeste bulunmayan bir koddur tamamen bana aittir... alıntı değildir..

 

[ahmetbslk]

Alıntı kodlarla burada iş yapıyorsun hocam o kadar kodu 1 dakikada nasıl yazıyorsun copy+paste olsa bile bu kadr belli etme

 

[2nokta]

Kodlarınız alıntıysa alıntı olarak belirtiniz.Ayrıca size aitse de görsel olarak belirtmelisiniz

 

[Security35]

İşime yarayacak teşekkürler

 

[usta hacker46]

ellerine sağlık

 

[kartal0746]

Eyw Genç

 

[Dangerous Pirate]

Dostum Alıntı Felan Değildir Alıntı Olsa Neden Yazmayayım KJodlar Benim Arşivimden Copy Parte Yapıyorum Kimsenin Paylaşmadığı Konuları Paylaşıyorum Teşşekür Edeceğinize Yaptığınuza Bakın Kodların Resmini İsteyen Arkadaş Sen neyin kafasındasın bi sölesene kodun resmi olurmu bi bnana tht de kodun resmini koyan olmuşmu ???? arkjadaşlar lütfen saygı gösterin !!!

 

[2nokta]

Dostum Alıntı Felan Değildir Alıntı Olsa Neden Yazmayayım KJodlar Benim Arşivimden Copy Parte Yapıyorum Kimsenin Paylaşmadığı Konuları Paylaşıyorum Teşşekür Edeceğinize Yaptığınuza Bakın Kodların Resmini İsteyen Arkadaş Sen neyin kafasındasın bi sölesene kodun resmi olurmu bi bnana tht de kodun resmini koyan olmuşmu ???? arkjadaşlar lütfen saygı gösterin !!!

Yaptığınız uygulamnın görselini koymanızdır kdoun resmini ben ne yapayım ayrıca sadece arkdas kodlar alıntımı dedi alıntıysa da belirtmek zorundasın sennsede arkdaslar tamamen bana ait diye not düşersin