Skip to main content

AccessTr.neT


Dosya Yedekleme (kopyalama) Kontrol Ve Dosya Konumu Açma İle Küçük Bir Örnek

Dosya Yedekleme (kopyalama) Kontrol Ve Dosya Konumu Açma İle Küçük Bir Örnek

#1
[/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 If

Bu 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 Lol



Ö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
.rar Yedek2.rar (Dosya Boyutu: 6,21 KB | İndirme Sayısı: 165)
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 20/06/2011, 21:50, Düzenleyen: |By|KiDnArUt|.
Cevapla
#2
Anlatım Ve Paylaşım İçin Teşekkürler Img-grin
[Resim: do.php?imgf=153931671719921.gif]

-->.Net İle Kullanıcı Girişi, Üye Ol, Şifre Değiştirme
-->CSS İle Menü Hazırlama
Cevapla
#3
Tesekkur
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da