Does anyone know if there is a way to create/use a Custom Action that, during the install will query the running installation's File table, grab FileName, FileSize, and Version, then spit it to a text file?

Any help, tips, guidance would be more than greatly appreciated!

0 Comments   [ + ] Show Comments


Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.


Yeah, put this Type 38 CA just before InstallInitialize with a condition of NOT Installed or whatever.....edit as get the idea [;)]:

' ForAppending = 8 ForReading = 1, ForWriting = 2
Const ForAppending = 8
'location of output file
Dim outputFile : outputFile = "c:\output.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (outputFile, ForAppending, True)
Dim sql : sql = "SELECT FileName, FileSize, Version FROM File"
Set fileView= Session.Database.OpenView(sql)
Set fileRecord = fileView.Fetch
While Not fileRecord Is Nothing
objTextFile.WriteLine(fileRecord.StringData(1) & " " & fileRecord.StringData(2) & " " & fileRecord.StringData(3))
Set fileRecord = fileView.Fetch
Set fileView = Nothing
Set fileRecord = Nothing
Answered 02/20/2010 by: captain_planet
Second Degree Brown Belt

Please log in to comment
Answer this question or Comment on this question for clarity