Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

FileType 1

Status
Not open for further replies.
Doesn't really matter. You can open a text file in binary mode. Do you mean known file types? VB6 didn't do that either.

-David
2006 & 2007 Microsoft Most Valuable Professional (MVP)
2006 Dell Certified System Professional (CSP)
 
This will work in .net may not be .nettish way.
Code:
    Sub findFiles()
        Dim fso
        Dim fldr
        Dim file
        fso = CreateObject("scripting.filesystemobject")
        fldr = fso.getfolder("c:\Zameer")
        For Each file In fldr.files
            MsgBox(file.type)
        Next file
    End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top