Help rewriting some code - create a file list and write it to a text file

[watsonlisp]

I wrote this program and lost the code.
I am hoping maybe some of you guys more versed in Visual Basic would do it with ease.
Attached is the EXE. It just needs to make a file list and write it to a text file.
For the current program to function, LOOKDB.LDB must be in C:\Wat

[fixo]

I don't see no code there
just a list of files:

C:\acad stuff\zip8\CLNOUT.dwg
C:\acad stuff\zip8\CTCHBSN.dwg
C:\acad stuff\zip8\CURBGUT.dwg
C:\acad stuff\zip8\CURBGUT2.dwg
C:\acad stuff\civildetails\51-104.dwg
C:\acad stuff\civildetails\51-105.dwg
C:\acad stuff\civildetails\51-11.dwg
C:\acad stuff\civildetails\51-112.dwg

~'J'~

[fixo]

Okay, here is slightly adapted
listing by Ken Puls

Option Explicit

'' based on listing written by Ken Puls (www.exelguru.ca)

Sub TextStreamTest()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fso As Object
    Dim fdw As Object, sdw As Object
    Dim fdr As Object, sdr As Object
    Dim strText As String
     
     'create file sysytem object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
     'get file to read and open text stream
    Set fdr = fso.GetFile("C:\Wat\Lookdb.ldb")
    Set sdr = fdr.OpenAsTextStream(ForReading, False)
     
     'create new file to write to
    fso.CreateTextFile ("C:\Wat\Lookdb.txt")
    Set fdw = fso.GetFile("C:\Wat\Lookdb.txt")
    Set sdw = fdw.OpenAsTextStream(ForAppending, False)
     
     'iterate through the end of first file
    Do Until sdr.AtEndOfStream
        'read string from the first file
        strText = sdr.ReadLine & vbNewLine '<--added carriage return to jump on the next line
        'write to the second one
        sdw.Write strText
    Loop
     
    'close both files and clean up
    sdr.Close
    sdw.Close
    Set sdr = Nothing
    Set sdw = Nothing
    Set fdr = Nothing
    Set fdw = Nothing
    Set fso = Nothing

End Sub

~'J'~

[watsonlisp]

When I originally created the code I used some projects found on vbcode.com and spliced them together. Basically I was hoping you guys could use LOOKDB.EXE to recreate the code. I need the recreated code so I can create READDB.EXE to select multiple text documents. I need a complete project.

[Ed Jobe]

Apparently you don't have any idea what it would take to decompile an exe, an read the machine code. It would be far easier for you to rewrite it.

[MikeJarosz]

When I originally created the code I used some projects found on vbcode.com and spliced them together. Basically I was hoping you guys could use LOOKDB.EXE to recreate the code. I need the recreated code so I can create READDB.EXE to select multiple text documents. I need a complete project.

There was a thread here some time back that dealt with editing .exe files. This is heavy stuff. Check this out:

http://forums.augi.com/showthread.php?t=44445

[watsonlisp]

I'm not really looking to decompile the EXE, I was hoping the project could be written by example(LOOKDB.EXE) alone.

[Ed Jobe]

I'm not really looking to decompile the EXE, I was hoping the project could be written by example(LOOKDB.EXE) alone.

Then why would you expect someone else to do it for you?

[watsonlisp]

It's very simple, if you look at LOOKDB.EXE, It just creates a list of files in an ASCII text file(one file per line).
No interaction with autocad or anything.

[MikeJarosz]

There was a thread here some time back that dealt with editing .exe files. This is heavy stuff. Check this out:

http://forums.augi.com/showthread.php?t=44445

Since I wrote this reply, I attended an ADN developer camp in Boston. Jeremy Tammik, one of the instructors, demonstrated a program that went beyond decompilation of an .exe file into assembler and actually created source code in VB and C#!!! From my class notes I found this link on Google. I have not had time to check this out, but I was impressed by Jeremy's demo!

http://www.aisto.com/roeder/dotnet/

Warning: be sure to read the discussion the first link refers to. This is still heavy stuff....