<div>
You could count the number of bytes in Query, and when it exceeds your limit, close the file, and write the rest
</div>


You could count the number of bytes in Query, and when it exceeds your limit, close the file, and write the rest

<div>
<div class="content wysiwyg-content">
I'm using the following code below, which works fine, but is there someway I can automatically write to another file when the size of the initial one reaches 400KB and so on, so I could finish up with 10 400KB files rather than one 4MB file?<br />
<br />
&nbsp; &nbsp; CommonDialog1.ShowSave<br />
&nbsp; &nbsp; DoEvents<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; If CommonDialog1.FileName &lt;&gt;&nbsp;&quot;&quot; Then<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Open Left(CommonDialog1.FileNam<wbr />e, Len(CommonDialog1.FileName<wbr />) - (Len(CommonDialog1.Default<wbr />Ext) + 1)) &amp;&nbsp;Mid(CommonDialog1.DefaultE<wbr />xt, 2) For Append &nbsp; &nbsp; &nbsp;As #1<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For ID = 1 To ProgressBar1.Max<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Print #1, Query<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Next<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Close #1<br />

</div>
</div>


I'm using the following code below, which works fine, but is there someway I can automatically write to another file when the size of the initial one reaches 400KB and so on, so I could finish up with 10 400KB files rather than one 4MB file?

    CommonDialog1.ShowSave
    DoEvents
    
    If CommonDialog1.FileName <> "" Then
    
            Open Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - (Len(CommonDialog1.DefaultExt) + 1)) & Mid(CommonDialog1.DefaultExt, 2) For Append      As #1
          For ID = 1 To ProgressBar1.Max

            Print #1, Query
         Next
         Close #1


Writing to a text file

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.