Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

|By|KiDnArUt|
|By|KiDnArUt|
Visual Basic 6 Örnekleri ve Uygulamaları
2
4272

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

#1
|By|KiDnArUt|
Aktif Üye
|By|KiDnArUt|
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 39
Konum: Gaziantep
Ofis Versiyonu: Ofis 2003
Son Oturumu: 27/12/2024,22:11
Yorumları: 90
Konuları: 22
Kayıt Tarihi: 07/05/2010
Teşekkür Puanı: 5
[/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ı: 169)
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 20/06/2011, 21:50, Düzenleyen: |By|KiDnArUt|.
Cevapla
#2
~~KaG~~
Kıdemli Üye
~~KaG~~
www Bul
Aktif Üye
Adı Soyadı: Ku.... Ağ....
Yaşı: 31
Konum: Karabük
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/11/2014,11:50
Yorumları: 478
Konuları: 56
Kayıt Tarihi: 06/01/2011
Teşekkür Puanı: 47
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
DUAYEN
Onursal Üye
DUAYEN
Bul
Onursal Üye
Adı Soyadı: Sü.... Ar....
Yaşı: 42
Konum: Yozgat
Ofis Versiyonu: Ofis 2007
Son Oturumu: 03/11/2019,19:06
Yorumları: 1.029
Konuları: 71
Kayıt Tarihi: 13/08/2010
Teşekkür Puanı: 279
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
Task