Dosya Yedekleme (kopyalama) Kontrol Ve Dosya Konumu Açma İle Küçük Bir Örnek
Tarih
20/06/2011 21:46
Konu Sahibi
|By|KiDnArUt|
Yorumlar
2
Okunma
2407
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



|By|KiDnArUt|
Aktif Üye
Kullanici Avatari
Aktif Üye
90
07/05/2010
5
Gaziantep
Ofis 2003
19/04/2013,12:56
[/sql]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

Visual Basic Code
1
2
3
4
5
6
7
8
9
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

Visual Basic Code
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

Visual Basic Code
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


Ek Dosyalar
.rar   Yedek2.rar (Dosya Boyutu: 6,21 KB / İndirme Sayısı: 149)
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


~~KaG~~
Kıdemli Üye
Kullanici Avatari
Aktif Üye
K.... A....
477
06/01/2011
47
Karabük
Ofis 2003
28/11/2014,11:50
Anlatım Ve Paylaşım İçin Teşekkürler Img-grin
Cevapla


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Tesekkur
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  transparent resim ile ilgili örnek accessman 2 1.658 12/04/2012, 20:19 benremix
  Klasörde Dosya Tarama mcmaho 6 2.335 20/12/2011, 10:21 yorum70
  Küçük bir Puzzle Uygulaması chopper07 6 3.296 09/12/2011, 05:30 mavistir
  sql çok güzel bi örnek Coskun0559 5 2.637 05/03/2011, 01:10 ilker gül
  küçük saat serg 6 3.298 02/03/2011, 22:14 slayermemo


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya