[/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

---

Ö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

Anlatım Ve Paylaşım İçin Teşekkürler