MAIOR ARQUIVO

USUARIO.EXCLUIDOS 25/07/2005 15:34:21
#95941
Fala galera blz??? meus problemas soh aumentam mew(ta paracendo os juros do brasil eheh) como eu faço para saber o maior arquivo de um determinado diretorio?


ou se nao PELOMENOS, como eu descubro o tamanho de um determinado arquivo ?
USUARIO.EXCLUIDOS 25/07/2005 16:11:43
#95944
SAGA_FUEL Eu ja respondi a sua pergunta no seu outro topico.
WEBMASTER 25/07/2005 17:28:18
#95957
Aqui vai um exemplo...
Não sei se você estava usando FileSystemObject mas ai vai

Option Explicit

Private Sub Form_Load()
  Dim I As Integer
  Dim A As String
  Dim T As Long
  Dim FSO As Object
  Dim FIL As Object
  Const sPath = "c:\"
  
  Set FSO = CreateObject("Scripting.FileSystemObject")
  For Each FIL In FSO.GetFolder(sPath).Files
    If FIL.Size > T Then
      A = FIL.Name
      T = FIL.Size
    End If
  Next
  MsgBox "O maior arquivo em " & sPath & " é o arquivo " & A & " com " & Format(T, "#,##0") & " bytes.", 48, "Atenção"
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar