+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Dosya Yedekleme (kopyalama) Kontrol Ve Dosya Konumu Açma İle Küçük Bir Örnek (/konu-dosya-yedekleme-kopyalama-kontrol-ve-dosya-konumu-acma-ile-kucuk-bir-ornek.html)
Dosya Yedekleme (kopyalama) Kontrol Ve Dosya Konumu Açma İle Küçük Bir Örnek - |By|KiDnArUt| - 20/06/2011
[/vb]Selamlar dosya yedekleme,dosyanın kontrolu ve belirtilen konumdaki dosyayı açmak için küçük bir örnek umarım yararlı olur örnegi inceleyince daha iyi anlıycaksınız
ßiraz bahsedeyim
formumuzda bir tane buton 2 tane text bulunmaktadır ben sabit bir dosya yedekleyecegim için dosya konumlarını sabit bir şekilde, örnek olsun die txt kullandım
belirtilen konumdaki dosyayı alıp
yine belirtilen konumdaki alana dosya ismini system saati (date) göre değiştirip kopyalama yapmaktadır aynı şekilde kopyalanan dosya konumunu aynı isimde kontrol etmektedir aynı dosya varsa uyarı vermektedir
ayrıca kopyalama işlemi bittikden sonra dosyanın bulunduğu konuma yönlenmektedir kontrol amaçlı
Buton Click
Dim dosya, trh As String
trh = Date
dosya = Dir("d:\yedek\vezne\" + "yedek_" + trh + ".txt")
If dosya = "" Then
FileCopy Text1.Text, Text2.Text
MsgBox " Kopyalama İşlemi Gerçekleşti", vbInformation, "Tebrikler"
Else
MsgBox " Aynı Dosya Zaten Bulunmakta", vbInformation, "UYARI !!!"
End IfBu kısımda bir değişken tanımladım kopyalanacak dosya uzantısının ismini değiştirmek için daha sonra filecopy ile belirtilen konuma kopyalama işlemi yapmakta eğer aynı dosya ismi kopyalanacak konumda yoksa kopyalama yapmakta varsa uyarı mesajı vermekte.
Form_Load
Dim trh As String
trh = Date
Text2.Text = "d:\yedek\vezne\" + "yedek_" + trh + ".txt"
Text1.Text = "c:\aaa.txt"Bu Kısımda textler içerisinde kopyalanacak konumlar gösterilmekte
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Call ShellExecute(Me.hwnd, "open", Trim("d:\yedek\vezne\"), "", "", SW_SHOWNORMAL)
Bu kısımda ise kopyalan dosya açılmakta
Umarım yararlı olur abarttım sanırım
Öneride Bulunursanız sevinirim ayrıca yeni farkettim eğer sistem saatine göre dosya ismini çagırdıgımda tekrardan yedek yuklemek istersem dosya ismini değiştrmek zorunda kalcam birde bunla ilgili skıştırma yapabilirmiyim
Cvp: Dosya Yedekleme (kopyalama) Kontrol Ve Dosya Konumu Açma İle Küçük Bir Örnek - ~~KaG~~ - 20/06/2011
Anlatım Ve Paylaşım İçin Teşekkürler
Cvp: Dosya Yedekleme (kopyalama) Kontrol Ve Dosya Konumu Açma İle Küçük Bir Örnek - DUAYEN - 20/06/2011
