You may encounter a situation where you need to open a “Save As” dialogue box for downloading files of different types on to the client machine. You might have found code snippets using FileSystemObject. These are limited to text files only and they make trying to find the file type a waste of time. The ADODB.Stream Object allows you to read the file from the server in Binary Format. You can use the “BinaryWrite” method of Response Object to write the binary data.

Here is the code:

 Dim objADODBStreamDim strFileSet objADODBStream = Server.CreateObject("ADODB.Stream")