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 » VB ile nasil dosya kopyalanir?(% belirterek)
Ü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

Bir galerinin veri tabanı çalışması (5 sql cümleciği ile birlikte basit bir örnek)

Yazar: birsen215

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!

Çevrimiçi Üyeler
fahrettin

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 7375
Yayın Tar:04.07.2006
Yazar : Ramci
Hit :4239

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

'gerekli olanlar
'2 tane textbox,1 tane Command button,1 tane checkbox

Private Sub Form_Load()

Text1.Text = vbNullString
Text2.Text = vbNullString
Check1.Caption = "Uzerine yaz"
Command1.Caption = "Kopyala"

End Sub

Private Sub Command1_Click()

'Text1 de bulunan dosyayi Text2 deki yola kaydet
Call DosyaKopyala(Text1, Text2, Check1.Value)

End Sub

Private Function DosyaKopyala(KaynakDosyaYolu$, HedefDosyaYolu$, Optional UzerineYaz As Boolean) As Boolean

Dim GecerliByte As Byte
Dim KaynakDosyaNo%, HedefDosyaNo%
Dim EskiYuzde%, YeniYuzde%

On Local Error GoTo DosyaKopyalamaHatasi

'eger KaynakDosyaYolu bos ise cik
If Dir (KaynakDosyaYolu) = vbNullString Then Exit Function
'HedefDosyaYolu dolu mu?
If Dir(HedefDosyaYolu) <> vbNullString Then
'Uzerine yaz mi?
If UzerineYaz Then
'var olan dosyayi sil
Debug.Print "Var olan dosya silindi!"
Call Kill(HedefDosyaYolu)
Else
'cik
Debug.Print "Dosya zaten var."
Exit Function
End If
End If

'EskiYuzdeyi -1 yap yani yeni kopyalama oldugu belli olsun
EskiYuzde = -1
'yeni bir dosya numarasi al
KaynakDosyaNo = FreeFile
'KaynakDosya yi ac
Debug.Print "KayakDosya acildi"
Open KaynakDosyaYolu For Random As KaynakDosyaNo Len = Len(GecerliByte)
'yeni bir dosya numarasi daha al
HedefDosyaNo = FreeFile
'HedefDosya yi ac
Debug.Print "HedefDosya yaratildi"
Open HedefDosyaYolu For Binary As HedefDosyaNo Len = Len(GecerliByte)
'KaynakDosya nin okunan yeri
'KaynakDosya nin uzunlugundan kucuk ise devam et

While LOF(KaynakDosyaNo) >= Seek(KaynakDosyaNo)
'siradaki Byte i al
Get KaynakDosyaNo, Loc(KaynakDosyaNo) + 1, GecerliByte
'sirayadaki yere yazdir
Put HedefDosyaNo, Loc(KaynakDosyaNo), GecerliByte
'YeniYuzde yi suanki KaynakDosya nin okunan yerini
'KaynakDosya nin unzunluguna bolup
'100 ile carparak hesapla

YeniYuzde = CInt(Seek(KaynakDosyaNo) / LOF(KaynakDosyaNo) * 100)
'EskiYuzde YeniYuzde den kucuk mu?
If EskiYuzde < YeniYuzde Then
'EskiYuzde yi YeniYuzde olarak al
EskiYuzde = YeniYuzde
'YeniYuzdeyi yazdir
Debug.Print "Dosya kopyalama devam ediyor : "; YeniYuzde
End If
Wend
'HedefDosya yi kapat
Debug.Print "HedefDosya yaratildi!"
Close HedefDosyaNo
'KaynakDosya yi kapat
Debug.Print "KaynakDosya kapatildi"
Close KaynakDosyaNo
DosyaKopyala = True
Exit Function

DosyaKopyalamaHatasi:
'hata olustu
Debug.Print "Hata olustu!"
'HedefDosya yi kapat
Close HedefDosyaNo
'HedefDosya olusturulduysa sil
If Dir(HedefDosyaYolu) <> vbNullString Then Call Kill(HedefDosyaYolu)
'KaynakDosya yi sil
Close KaynakDosyaNo

End Function
onaylayan: Webmaster




Yorumlar, eklemeler ve düşünceler
        filesystem.filecopy("kaynak"),("hedef")

   cagri61, 05.07.2006 08:57
   bunun asil ozelligi bir winsock tan dosya alabilmek icin kulanilabilmesi...
yani byte byte winsoktan alip byte byte baydedilebilir.

   Ramci, 05.07.2006 09:39
   drtferftertfert

   alikac, 13.07.2006 17:13
   Aşağıdaki kısım belirttiğim gibi değiştirilirse program daha kararlı çalışacaktır, çünkü eğer hedef dosya salt okunursa kill komutu hata verecektir..

Debug.Print "Var olan dosya silindi!"
Call Kill(HedefDosyaYolu)

^ yerine

setattr hedefDosyaYolu,vbnormal ' < sorunun giderileceği satır
kill hedefdosyayolu

güzel bi çalışma, kolay gelsin.

   xxxmcs, 19.07.2006 14:47
   tesekkurler xxxmcs

   Ramci, 24.07.2006 14:28
© 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