CARREGA ARQUIVOS

LEANDRO 18/05/2010 17:22:21
#342115
Boa Tarde a Todos.
Preciso carregar algum objeto com todos os .DOC em uma determinada pasta,
alguem pode me ajudar ?

Obrigado
TECLA 18/05/2010 17:29:12
#342117 Resposta escolhida 
Imports System.IO

Dim strFileSize As String = [Ô][Ô]
Dim di As New DirectoryInfo([Ô]C:\Temp[Ô])
Dim aryFi As FileInfo() = di.GetFiles([Ô]*.doc[Ô])
Dim fi As FileInfo
For Each fi In aryFi
     strFileSize = (Math.Round(fi.Length / 1024)).ToString()
     ListBox1.Items.Add(fi.Name & [Ô] - [Ô] & strFileSize & [Ô]KB[Ô])
Next
LEANDRO 18/05/2010 17:32:58
#342118
Obrigado,
mas como verifico a pasta que estou ?
TECLA 18/05/2010 17:38:47
#342119 
MsgBox(Application.StartupPath)
LEANDRO 18/05/2010 17:47:56
#342123
Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar