Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » V.BASİCTE DOSYA KOPYALA
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Datalist

Yazar: wampirman

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10448
Yayın Tar:25.06.2008
Yazar : ercann
Hit :1622

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Bİ FORM AÇIP
Bİ TANE BUTON EKLEYİN
BUTONUN İÇİNE BU KODU EKLEYİN

BU ARADA C:\ de ' BİTANE 'Notlarım.txt' dOSYASI AÇMAYI UTMAYIN


YOKSA Run Time Error :))))



Private Sub Command1_Click()

SourceFile = "C:\Notlarım.txt"
DestinationFile = "D:\Notlarım.txt"
FileCopy SourceFile, DestinationFile
Kill SourceFile

End Sub


BELKİ İŞİNİZE YARAR

ŞİMDİDEN İYİ ÇALIŞMALAR




Yorumlar, eklemeler ve düşünceler
        Güzel Çalışma eline sağlık fakat açıklama ile yaparsan daha faydalı olacagını düsünüyorum yinede eline sağlık

   adofm, 30.06.2008 00:42
   Teşekkürler.
Çok büyük dosyaları koopyalayacak olursan bu durumda kopyalama bitmeden kill ile silmek istediğine sorun çıkacaktır.
Bu sorunu o kısma
'''''''''''''''''''''''''''''''''
dim dosyanekadar as integer
dosyanekadar=filelen (SourceFile)

bidahabakbakalimolmusmu:
DoEvents
if filelen(DestinationFile)=dosyanekadar then
Kill SourceFile
else
goto bidahabakbakalimolmusmu
end if
msgbox "işlem bitti"


ile

   fermatt, 05.07.2008 14:28
   Bence bu dosya taşıma olmuş. Çünkü kopyaladıktan sonra Kill ile Kaynak dosyayı silmişsin.

   BarışEroğlu, 11.07.2008 14:53
   arkadaşlar ben label1.captionda yazan yolu mesala "c\users\vs.exe" yi label2.caption daki yere "d:\users\cd.exe" kopyalamak istiyorum kodların doğruluğundan eminim
Private Sub Command1_Click()

SourceFile = Label5.Caption
DestinationFile = Label3.Caption
FileCopy SourceFile, DestinationFile


End Sub

böyle yaptım neden olmuyor lütfen yardım edin



   megasifon, 17.01.2012 19:15
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin