Tienes razón, no me voy a complicar, voy a probar con el avast que tambien es gratuito.
Gracias.
Gracias.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú$result=mysql_query("select * from secciones");
Function ImpExcel(ByVal ruta As String, ByVal dgv As DataGridView)
'funcion que muestra todos los campos de la hoja 1 de un excel en un datagridview
Dim miconexion As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" & ruta & "; Extended Properties=Excel 8.0;")
Dim comando As New OleDbDataAdapter("select * from [cotizaciones al público$]", miconexion)
comando.TableMappings.Add("Table", "Attendence")
Dim DtSet As New DataSet
comando.Fill(DtSet)
dgv.DataSource = DtSet.Tables(0)
Return Nothing
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim total As Integer = 57
Dim porcentaje As Double
Dim cantidadArchivos As Integer = ContarArchivos("D:\respaldo_mysql") 'aca le pasas el string de la ruta que quieras
porcentaje = cantidadArchivos * 100 / total
MsgBox(porcentaje)
End Sub
Function ContarArchivos(ByVal ruta As String)
Dim ContadorDeArchivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
ContadorDeArchivos = My.Computer.FileSystem.GetFiles(ruta)
Return ContadorDeArchivos.Count
End Function