¿como crear una condición?
Publicado por carlos (3 intervenciones) el 21/07/2017 17:38:59
hola a todos buen día, he tenido un problema para poder crear una condición la cual me ayude a eliminar archivos de acuerdo a su fecha, por ejemplo los siguientes códigos me generan una copia de seguridad que se guardan en una ruta por fecha de creación, mi problema es que quiero que se eliminen por ejemplo cuando llegue al primer día de la semana osea domingo me tiene que eliminar los días anteriores excepto el domingo es la única copia que me quedaría a las semana la de todos los domingos hasta terminar el mes .
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Public Class Form1
Private archivos As String()
Dim conexion As New SqlConnection("server=DESKTOP-FD8NDED;database=bdinsignias;uid=sa;pwd=123456789")
Dim information As System.IO.FileInfo
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim nombre_copias As String = (Date.Today.Day.ToString & "_" & Date.Today.Month.ToString & "_" & Date.Today.Year.ToString & "_" & "backup")
Dim consulta As String = ("BACKUP DATABASE [BDInsignias] TO DISK = N'A:\backups\" & nombre_copias & ".bak' WITH NOFORMAT, NOINIT, NAME = N'BDInsignias-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10")
Dim CMD As SqlCommand = New SqlCommand(consulta, conexion)
conexion.Open()
Try
CMD.ExecuteNonQuery()
Catch ex As Exception
MsgBox("no se realizo correctamente")
End Try
conexion.Close()
Dim di As New DirectoryInfo("A:\backups")
Dim ficheros As FileInfo() = di.GetFiles("*.bak")
Dim Files As IEnumerable(Of FileSystemInfo) = di.EnumerateFileSystemInfos().OrderBy(Function(fi)
fi.CreationTime)
Dim dia As Integer
For Each fi As FileInfo In ficheros
dia = (fi.CreationTime.DayOfWeek)
ListBox1.Items.Add(dia)
Next
End Sub
End Class
Valora esta pregunta
0