Dosya Arşivleme Programı

dreamt · 23-09-2010, 10:15

Merhaba arkadaşlar resim, pdf ve bazı autocad dosyalarını arşivlemek için bir program yapmak istiyorum. başlangıcını yaptım ama kodlarda takıldım. Yapmak istediğim programda arşivlenmek istenen dosya seçilecek ve arşive gönder butonuna basıldığında sabit bir klasör içine seçtiğimiz dosya kopyalanacak kopyalandıktan sonra seçilen dosya silinsinmi diye bize soracak. Sonrasında arşivdeki dosyayı aç dediğimde uygun programla dosyayı açacak. Değerli yardımlarınızı bekliyorum.Teşekkür ederim.

Taruz · 23-09-2010, 15:58

Merhaba..

Amacınız için üç ayrı prosedür hazırladım..:

İlki, dosyayı arşiv klasörüne kopyalar onay verirseniz asıl dosyayı siler..:

Visual Basic
Dim asıldosya, kopyadosya As String
 
asıldosya = DosyaYolu
kopyadosya = "D:\dosyadeposu\" _
& Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
 
If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then
 
Dim Trz
Set Trz = CreateObject("Scripting.FileSystemObject")
 
Trz.CopyFile asıldosya, kopyadosya
    If MsgBox("Dosya arşivlendi.. Asıl dosyayı silmek ister misiniz?", vbYesNo) = vbYes Then
    Kill asıldosya
    End If
End If

Bu ise arşiv dosyasını açar..:

Visual Basic
Dim dosyaac As String
dosyaac = "D:\dosyadeposu\" _
& Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
 
Application.FollowHyperlink dosyaac, , True, True

Bu da arşiv klasörünüzü açıp dosyalarınızı görüntülemenizi sağlar..:

Visual Basic
Dim arsiv As String
 
 arsiv = """C:\WINDOWS\explorer.exe"" /e, D:\dosyadeposu\"
 
Call Shell(arsiv, 1)

Ayrıca dosya seçimi için kullandığınız prosedürün içerisindeki

Visual Basic
Me.DosyaAdi = strFileName

komutunu

Visual Basic
Me.DosyaAdi = Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))

olarak değiştirirseniz dosyadı alanınıza salt dosya adını da kaydetmiş olursunuz.. Mevcut yapıda bu yok, düzenlemekte fayda var..

dreamt · 23-09-2010, 17:46

Sayın Taruz gerçekten çok teşekkür ederim gerçekten çok işime yarayacak. Bir noktayı unutmuşum dosyayı arşive gönderirken aynı dosya isminde bir dosya varsa uyarı vermesi gerekiyor bunuda ilave edebilirsek çok güzel olacak. Yardımlarınız için çok teşekkür ederim.

Taruz · 23-09-2010, 20:09

(23-09-2010, 17:46)dreamt demiş ki: Sayın Taruz gerçekten çok teşekkür ederim gerçekten çok işime yarayacak. Bir noktayı unutmuşum dosyayı arşive gönderirken aynı dosya isminde bir dosya varsa uyarı vermesi gerekiyor bunuda ilave edebilirsek çok güzel olacak. Yardımlarınız için çok teşekkür ederim.

Kod sayfanızın üst kısmını bu şekilde düzenleyiniz..:

Visual Basic
Option Compare Database
Option Explicit
Dim asıldosya, kopyadosya, dosya As String
Sub arsivleme()
If MsgBox("Dosya Arşivlenecek.. Emin misiniz?", vbYesNo) = vbYes Then
 
Dim Trz
Set Trz = CreateObject("Scripting.FileSystemObject")
Trz.CopyFile asıldosya, kopyadosya
    If MsgBox("Dosya arşivlendi.. Asıl dosyayı silmek istermisiniz?", vbYesNo) = vbYes Then
    Kill asıldosya
    End If
End If
End Sub

İlgili düğmenin kodunu da bu şekilde değiştirirseniz istediğiniz yapı tam olarak gerleşleşir..:

Visual Basic
asıldosya = DosyaYolu
dosya = Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
kopyadosya = "D:\dosyadeposu\" & dosya
 
If Dir(kopyadosya) = Empty Then
arsivleme
Else
If MsgBox(dosya & " isimli dosyadan arşivinizde var. Değiştirmek mi istiyorsunuz?", vbYesNo) = vbYes Then
arsivleme
End If
End If

dreamt · 24-09-2010, 08:44

Yardımlarınız için çok teşekkür ederim.

adnan · 28-09-2010, 08:17

Merhaba;

Sn.dreamt programı 2003 olarak ekleyebilirmisiniz?

Teşekkürederim.
Selamlar.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Arşivleme	onut	4	364	18-05-2025, 15:18 Son Mesaj: onut
	Word Dot şaplonunu Açtırarak Dosya Göndermek	Aplt	1	332	12-01-2025, 17:11 Son Mesaj: dsezgin
	Aktarım Yaparken Dosya Adını Değiştirme	zimbit	4	475	04-02-2024, 00:42 Son Mesaj: zimbit
	[FORM] form klasör içinde dosya kontrolü	obaysal42	4	2.500	29-12-2023, 10:24 Son Mesaj: burhanb
	[VBA] Dosya Yolu Yazdırma	benuva	2	508	26-11-2023, 19:06 Son Mesaj: benuva
	[VBA] Dosya Yolu Boş Ise Hata Alıyorum	serdem48	4	447	26-10-2023, 14:11 Son Mesaj: serdem48
	Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak	adnnfrm	2	580	22-06-2023, 19:04 Son Mesaj: dsezgin
	Access.db , Yüksek Dosya Boyutu.	BeyTor	9	826	13-05-2023, 22:43 Son Mesaj: BeyTor

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL