Shell komutu ve WinRAR kullanımı
Private Sub Form_Timer()
Me.Zaman = Time
Me.Tarih = Date
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Yedekler")
rs.MoveFirst
DoEvents
Do Until rs.EOF
If rs.Fields("YedekSaati") = Me.Zaman Then
X = Shell("C:\Program Files\WinRAR\winrar.exe" & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " & rs.Fields("SaklanacakYer") & "\" & rs.Fields("YedekAdi") & Format(Date, "ddd") & " " & rs.Fields("YedekYeri") & "\*.*")
End If
rs.MoveNext
Loop
rs.Close
End Sub
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.