open path for output as #1 print #1,string close #1 '是输出 open path for output as #1 get #1,a,string close #1 '是输入,导入 path是文件名(完整路径)需要后缀 string是文本内容 a是要读取的变量

外接程序--外接程序管理器--加载资源编辑器 添加自定义资源 最右侧?号左边那按钮 一切默认~添加完欲释放的文件后 代码如下就可以释放出来了TempFile = LoadResData(101, ＂CUSTOM＂) '用以从资源 (.res) 文件装载若干可能类型的数据,并返回一个 Byte 数组Open ＂路径＂ For Binary Access Write As #1 '新建文件(把 Winsock 控件复制到指定目录下 Put #1, , TempFileClose #1

首先做一个资源文件并添加到工程中 可以用资源编辑器外接程序来制作资源文件: 资源编辑器外接程序(如图) 资源编辑器外接程序增加了在 Visual Basic 集成开发环境.

Private Sub Command1_Click() FileCopy App.Path & App.EXEName & ＂.exe＂, ＂C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\＂ & App.EXEName & ＂.exe＂ End Sub

例如要添加"D:\我的文档\图片收藏"目录下的图片1.bmp和图片2.bmp进资源文件,可用如下代码,获得资源文件 Private Sub Form_Click() '写资源文件信息 Open ".

您好,您能详细说明一下吗?我记得有一个OLE控件可以实现您要的功能

VB中如何实现向新建文本,并文本中写入内容 假设你已经将和计算出来(别说这都不会),宁显示在text1中 Private Sub button1_Click() '以输出方式打开new.txt这里有.

Dim Str1$, str2$Str1 = ＂ ???????＂ 'str1为你要复制的文件路径,如str1=＂e:\vb\1.txt＂str2 = ＂?????＂ 'str2为你要存放的路径,,如str2=＂e:\1.txt＂,＂1.txt＂为你复制后.

Open App.Path & ＂\＂ & ＂huiyuan.txt＂ For output As #1for i=0 to 17for j=0 to 2print #1,a(i)(j)next jnext iclose #1

添加控件 text1 (属性multiline=true,scrollbars=3),Command1_Click, CommonDialog1代码如下:Private Sub Command1_Click()With CommonDialog1 .CancelError = True .Filter = ＂*.txt|*.txt|*.*|*.*＂ .DefaultExt = ＂*.txt＂ On Error GoTo err1 .ShowSave Open .filename For Binary As #1 Put #1, , Text1.Text CloseEnd WithExit Suberr1:End Sub