topic AW:How to browse a folder and get file info for futher calculation in QlikView

How to browse a folder and get file info for futher calculation

Tue, 01 Dec 2009 20:25:02 GMT

Hi,

Can anybody help my with this little issue. I need to browse the 'Temporary Internet Files' folder, and get out information about filename and the time file is accessed. This may give me the possibility to make a Qlikview where it is possible to aim the internet-traffic and time consumtion.

AW:How to browse a folder and get file info for futher calculation

Tue, 01 Dec 2009 21:32:53 GMT

Hi,

it also might be possible with a QlikView internal macro, but a quick solution is to use excel and the following vb-code to read the file informations of your folder, save the excel-sheet and then load it in QlikView:


Sub rad_file_information()

 Const PATH = "C:\YOUR_FOLDER\"

 With ThisWorkbook.Worksheets("Sheet1")
 .[A1].Select
 .[A3:F65000].ClearContents
 .[A1:B1] = Array("Path:", PATH)
 .[B2:F2] = Array("Name", "Date", "Time", "Size", "Folder")
 ..NumberFormat = "dd.mm.yyyy"
 ..NumberFormat = "hh:mm:ss"
 ..NumberFormat = "#,##0"

 Call list_files(.[B3:F3], CreateObject( _
 "Scripting.FileSystemObject").GetFolder(PATH))

 ..EntireColumn.AutoFit
 End With
End Sub

Sub list_files(r As Range, folder As Variant)
 Dim file As Variant
 Dim subfolder As Variant

 For Each file In folder.Files
 r(1) = file.Name
 r(2) = DateValue(file.DateLastModified)
 r(3) = TimeValue(file.DateLastModified)
 r(4) = file.Size
 r(5) = folder.PATH
 Set r = r.Offset(1)
 Next

 For Each subfolder In folder.SubFolders
 If (subfolder.Attributes And 4) = 0 Then
 Call list_files(r, subfolder)
 End If
 Next
End Sub

Kind regards.

AW:How to browse a folder and get file info for futher calculation

Wed, 02 Dec 2009 20:34:46 GMT

Thanks Pascal.

It works fine with all other folders except temporary internet files. It seems to be a special folder, handled speciel from the Internet explorer.

But still, thanks for your help.

regards

Allan