VB6.0 修改保存工程时候的默认保存路径

最新推荐文章于 2022-12-28 00:05:57 发布

原创最新推荐文章于 2022-12-28 00:05:57 发布 · 4.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #vb6.0 #vba #ide

本文介绍如何在Visual Basic 6.0环境中通过修改快捷方式来改变默认的工程和文件保存路径。

在用VB6.0的IDE环境编写程序时候，当保存自己编写的工程或者打开文件的时候，VB有自己的默认保存路径，此路径无法在IDE环境中修改。可以通过修改快捷方式的形式来改变默认的保存路径。

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

HWWBH

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

VB6.0摄像头录像程序代码QZQ

qq_32257509的博客

07-22

1036

Case LCase(“VideoFormat”): SendMessage ctCapWin, WM_CAP_DLG_VideoFormat, 0, 0: Call SetWin(ctCapWin, es_Size) '显示对话框：视频格式,分辨率。连接驱动后，不一定就能显示视频，还要保证摄像头硬件连接良好、未被其他程序使用。Const WM_CAP_DLG_VideoSource = WM_User + 42 '对话框：视频源，枚举视频源，控制颜色、对比度、饱和度的改变。

Windows10下VB6.0开发——ini文件存储参数信息

qq_36749906的博客

10-15

1098

前言：在使用VB编写上位机程序时，想要实现一个功能——每次修改Text文本框中的值后，使得关闭程序后该数值能够保存，在下次打开时可以直接使用。本文介绍了INI文件对该功能的支持。 1.INI文件 2.VB操作 ...

参与评论您还未登录，请先登录后发表或查看评论

怎么保存到桌面_你可知道如何更改VB程序默认的保存位置？

weixin_36071371的博客

01-15

1723

点击蓝色文字关注跟我学VB！在VB编程中，如果在安装VB软件时没有更改默认安装路径，默认的工程文件保存位置是VB安装目录下的/bin文件夹，一般都是在C盘中。而在实际编程开发中，我们并不想保存在系统设定的这一默认的目录中，而是想保存在其他磁盘目录中，那么我们应该怎么操作呢？是每次保存工程时，在弹出的对话框中手动一步一步点击目录位置吗？这个办法可行，但是影响开发效率，浪费时间。那么我们应该...

VB6.0 浏览文件夹对话框选择文件保存路径

热门推荐

知识贵在分享

09-01

1万+

转自：http://blog.163.com/headmaster_01/blog/static/475568612011517376117/ VB6.0 浏览文件夹对话框选择文件保存路径 2011-06-17 15:07:06| 分类：文件选择对话框 |

有关VB6.0中 App.path的问题

lesleemail的专栏

11-30

3193

1、App.path 表示的是当前程序运行的路径 2、若该路径为根目录时则该路径右边为 \ 3、例程： Dim fullpath As String 　　If Right(App.Path, 1) = "\" Then ' 若 App.Path 为根目录即App.Path 为 c:\ 　　 fullpath = App.Path + "文件名称"

关于VB6不能保存，提示“权限被拒绝”的问题

zihuangao的专栏

10-12

3558

在VB6 IDE环境下，当我想保存时，VB不能保存，提示为“权限被拒绝 ...\...frm"，只能另存为其他名字先是怀疑VB没有打补丁，装上SP6，还是不行；又换其他版本，问题依旧。又重装系统，还是不行。最终发现问题出现在VB的插件当中，Matrox Act

vb6.0更改文件日期时间

11-13

在VB6.0（Visual Basic 6.0）中，如果你需要修改文件的日期和时间属性，这通常涉及到对文件系统对象的操作。VB6.0提供了FileSystemObject（FSO）来处理这些任务，它是一个非常强大的工具，允许程序员对文件和文件夹...

VB6.0 直接打印 PDF

11-27

在VB6.0中，直接打印PDF文档通常涉及到使用API函数来调用系统自带的PDF阅读器（如Adobe Acrobat Reader）进行打印操作。这个过程不依赖于任何特定的控件或组件，而是通过Windows壳层API（Shell API）来实现。下面...

VB6.0相对路径打开文件示例程序

03-22

1. **设置当前工作目录**：在程序启动时，VB6.0默认将当前工作目录设置为含有主执行文件（如"工程1.vbp"）的目录。这使得相对路径的计算变得简单，因为我们可以假设所有相对路径都是基于这个目录的。 2. **创建File...

vb.net 通过app.config来改变编译路径的问题

06-30

1019

问题: 我先把我的意思讲一遍: 假如把一个A工程编译后: 会在Debug目录中生成以下文件: A.Exe A.pdb A.xml 引用的common.dll 我在制作setup文件后,我想生成一个这样的目录: A目录中: bin/common.dll A.Exe 但现在A.exe 和common.dll不在一级目录上,就出错. 解决: 项目右键-->追加-->应用配置文件-->添加一个app.

VB如何获取所文件选路径？

lihaoing的专栏

09-13

1万+

VB如何获取所选路径？首先在部件里勾上Microsoft Common Dialog Control6.0(sp3) 然后在窗体上添加CommonDialog1控件````` priavte sub command1_click() CommonDialog1.showopen text1.text=CommonDialog1.filenam

vb打开文件夹对话框，并可事先指定默认路径，打开指定目录的对话框

大海的专栏

10-30

9846

点击收藏可以用SHBrowseForFolder来实现Objects: Form1、Command1、Module1 Form1: Option Explicit Private Const BIF_RETURNONLYFSDIRS = 1 Private Const BIF_DONTGOBELOWDOMAIN

计算机程序设计vb课后题,《VB程序设计》课后题答案

weixin_42594419的博客

07-16

407

《VB程序设计》课后题答案第二章一、问答题1.叙述建立一个完整的应用程序的过程。答：界面设计编写事件过程代码运行、调试保存文件2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到几个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及到两个文件要保存。先保存窗体文件(.frm)，再保存工程文件(....

VB操作Excel

Onwaier的博客

04-08

4059

VB操作Excel 详细内容请参看博客,这篇博客的内容很详尽，有些在VB中会报错，是VBA中的语法。下面列一些我在本次签到程序中用到的一些语句： 1、新建一个Excel的Application Dim ExcelID As Excel.Application Set ExcelID = New Excel.Application 2、隐藏工作薄（运行在后台） ExcelID.Visible ...

VBA设置默认/缺省运行路径的方法

12-28

1735

在设计VBA脚本时，有时我们需要在指定目录中运行或打开第三方程序/文件，那么最好的方法就是使用ChDir命令更改当前默认的运行路径，以便脚本能轻松地找到所需文件。

vb6.0 保存数据到CSV文件

最新发布

08-29

<think>我们正在处理一个关于VB6.0保存数据到CSV文件的问题。根据用户提供的引用信息，我们可以从引用[3]和引用[4]中找到相关方法。引用[3]主要涉及读取CSV文件，但我们可以从中了解CSV文件在VB6.0中的处理方式，特别是通过ADODB连接和记录集来操作CSV文件。引用[4]则直接提供了两种导出生成CSV文件的方法：方法一：使用传统的文件操作（如Open语句）写入数据。方法二：使用ADODB.Stream对象来写入数据，并可以指定字符集（如UTF-8）。用户需求：在VB6.0中将数据保存到CSV文件。实现方法： 1. 使用传统的文件输出方法（Open语句） 2. 使用ADODB.Stream对象（支持多种字符集，如UTF-8）我们将分别介绍这两种方法。方法一：使用Open语句这种方法简单直接，适用于小数据量且不需要复杂字符编码的情况。步骤： a. 使用Open语句打开（或创建）一个CSV文件。 b. 使用Print #语句将数据写入文件，每行数据用逗号分隔。 c. 关闭文件。示例代码：假设我们有一个二维数组的数据，或者我们可以逐行写入。方法二：使用ADODB.Stream对象这种方法可以更好地控制字符编码，例如保存为UTF-8格式，避免乱码问题。步骤： a. 创建ADODB.Stream对象。 b. 设置字符集（如"UTF-8"）。 c. 打开流，使用WriteText方法写入数据（注意每行末尾加vbCrLf换行）。 d. 使用SaveToFile方法保存到文件。示例代码：参考引用[4]中的方法二。注意：在写入CSV文件时，如果字段内容包含逗号、换行符或双引号，需要将该字段用双引号括起来，并且字段内的双引号要用两个双引号表示。我们根据这两种方法给出示例代码。另外，引用[3]中提到了使用ADODB连接来读取CSV，同理，我们也可以使用ADODB连接来写入CSV，但这种方法相对复杂，而且需要设置schema.ini文件，所以通常不推荐。因此，我们重点介绍上述两种方法。由于用户没有提供具体的数据结构，我们假设数据是一个字符串数组（每行数据）或二维数组（行和列）。下面分别给出两种方法的代码示例。</think>在 VB6.0 中将数据保存为 CSV 文件主要有以下两种实现方法： ### 方法一：使用传统文件操作（Open 语句） ```vb Sub SaveToCSV_FileIO() Dim FileNum As Integer Dim FilePath As String Dim DataRow As String FilePath = "C:\data.csv" ' 目标文件路径 ' 打开文件（如不存在则创建） FileNum = FreeFile() Open FilePath For Output As #FileNum ' 写入表头 Print #FileNum, "Name,Age,Email" ' 写入数据行 DataRow = Chr(34) & "张三" & Chr(34) & "," & 28 & "," & Chr(34) & "zhangsan@example.com" & Chr(34) Print #FileNum, DataRow DataRow = Chr(34) & "李四,工程师" & Chr(34) & "," & 35 & "," & Chr(34) & "lisi@test.com" & Chr(34) Print #FileNum, DataRow ' 关闭文件 Close #FileNum MsgBox "CSV文件保存成功！" End Sub ``` **特点说明**： 1. 使用 `Chr(34)` 处理含逗号字段的引号包裹 2. 支持直接写入带换行符的文本 3. 简单高效，适合基础需求 4. 默认使用 ANSI 编码（可通过 `StrConv` 转换编码）[^2] ### 方法二：使用 ADODB.Stream（推荐 UTF-8 编码） ```vb Sub SaveToCSV_ADODBStream() Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") ' 配置流对象 With objStream .Type = 2 ' 文本模式 .Charset = "UTF-8" ' 设置UTF-8编码 .Open ' 写入CSV内容 .WriteText "产品ID,产品名称,单价" & vbCrLf .WriteText "P1001," & Chr(34) & "键盘,有线版" & Chr(34) & ",299" & vbCrLf .WriteText "P1002," & Chr(34) & "无线鼠标" & Chr(34) & ",199" & vbCrLf ' 保存文件 .SaveToFile "C:\products.csv", 2 ' 2=覆盖已存在文件 .Close End With Set objStream = Nothing MsgBox "UTF-8编码CSV已生成" End Sub ``` **优势**： 1. 直接支持 UTF-8 编码，避免中文乱码[^4] 2. 自动处理换行符（`vbCrLf`） 3. 适合大数据量导出 4. 可扩展为数据库记录集导出 ### 特殊字符处理规则 | 字符类型 | 处理方式 | 示例 | |----------|---------------------------|---------------------| | 逗号 | 用双引号包裹整个字段 | `"Smith, John"` | | 双引号 | 替换为两个连续双引号 | `"""重要"""说明` → `"""重要""""说明"` | | 换行符 | 用双引号包裹整个字段 | `"第一行`<br>`第二行"` | > **关键技巧**：当字段包含逗号、换行符或双引号时，必须用双引号(`"`)包裹整个字段，内部的双引号需转义为两个连续双引号(`""`)[^2]。