🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.lang.visual-basic
Article #20869

Re: ˭�ܸ���һ��save��ť�ij�����лл��

#20869
From: ��ԭ֮��
Date: Wed, 30 Jul 2003 01:06
22 lines
1772 bytes
лл�����Ҫ�����Ƿ��Ѿ�����ͬ�ļ���
�����滻���־���Ի��򣬸���ôд��

���⣬��Щprint��������Լ��ı�����
�� �� sunmaoyou (Ե�����) �Ĵ������ᵽ: ��
: If Datafilename = "" Then  ''datafilenameΪ��Ҫ������ļ���
:    CommonDialog1.InitDir = App.Path
:    CommonDialog1.Filter = "����ļ�(*.sj)|*.sj|�����ļ�(*.*)|*.*" '���ʵ�����
:    CommonDialog1.FilterIndex = 1
:    CommonDialog1.filename = ""
:    CommonDialog1.Action = 2
:    Datafilename = CommonDialog1.filename
:    If Datafilename = "" Then Exit Sub
: End If
: Open Datafilename For Output As #1 '���һ���ļ�
:     Print #1, Jingming
: ...................

--

�� ��Դ:��BBS ˮľ�廪վ smth.org��[FROM: 202.119.112.40]
Technical Details
Message-ID: <000000$5mQ@smth.org>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-06!sn-xit-09!supernews.com!216.170.153.135.MISMATCH!tdsnet-transit!newspeer.tds.net!cyclone.bc.net!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: 109fdd,52991acb06b8745e,start
X-Google-Attributes: gid109fdd,public
X-Google-ArrivalTime: 2003-07-29 18:10:05 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-06!sn-xit-09!supernews.com!216.170.153.135.MISMATCH!tdsnet-transit!newspeer.tds.net!cyclone.bc.net!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH
From: sfljh@smth.org (��ԭ֮��)
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: Re:  ˭�ܸ���һ��save��ť�ij�����лл��
Date: 30 Jul 2003 01:06:23 GMT
Organization: BBS ˮľ�廪վ
Message-ID: <000000$5mQ@smth.org>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/g/M.1059527051.f0
Lines: 22