vb 默认的文件保存路径是什么

今天宠物迷的小编给各位宠物饲养爱好者分享Vb路径设置的宠物知识，其中也会对vb 默认的文件保存路径是什么(vb 默认的文件保存路径是什么格式)进行专业的解释，如果能碰巧解决你现在面临的宠物相关问题，别忘了关注本站哦，现在我们开始吧！

vb 默认的文件保存路径是什么

保存路径是当前可执行程序所在的文件夹。比如exe在d:\work\c\test\demo****,哪么文件默认保存到d:\work\c\test，利用VB文件夹列表框控件设置文件夹路径的方法： 1、新建一个标准工程。 2、单击工具箱中的“文件列表框”控件，在窗体上拖一个出来。 3、单击已经拖好的文件列表框，在弹出的代码编辑区中键入如下代码：Dir1.Path="E:03\WXPE"，即就是要求显示E盘下的2003文件夹中的WXPE文件。 4、退出代码编辑窗口，单击菜单上三角执行按钮，运行该程序。 5、这时会便会发现之前的文件夹路径已经改变到刚才设置的E:03\WXPE的上来了。

vb怎么做一个设置默认保存路径

1，点击“工程－部件”，显示“部件”对话框，将“Microsoft Common Dialog control 6.0”选中，然后确定。 2，添加工具栏中的CommonDialog控件图标，将其添加到窗体上。 3，窗体添加Command控件和Text控件，用来浏览目录和保存默认路径。 4，在Command中添加以下代码： Private Sub Command1_Click()CommonDialog1.DialogTitle = "选择保存目录"CommonDialog1.Filter = "全部文件 (*.*)|*.*"CommonDialog1.FileName = "保存目录"CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveIf CommonDialog1.FileName "" ThenText1 = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(CommonDialog1.FileTitle))Open "C:\path.txt" For Output As #1 Print #1, Text1 '写入默认保存路径Close #1End IfEnd SubPrivate Sub Form_Load()On Error Resume NextIf Dir("C:\path.txt") "" ThenOpen "C:\path.txt" For Input As #1 '自动读出默认保存路径 Input #1, TEMPA Text1.Text = TEMPAClose #1End IfEnd Sub5，以上代码就达到TEXT1控件中保存默认保存路径的目的，Command1点击选择时能保存默认路径到c:\path.txt，程序运行时，自动读出默认保存路径。

VB怎么实现选择路径，打开路径

添加一个文件打开对话框，在工程--部件中选择 CommonDialog1.DefaultExt 扩展名 CommonDialog1.InitDir 路径 CommonDialog1.Filter 文件过滤，按扩展名 CommonDialog1.ShowOpen 文件打开

vb怎么做一个设置默认保存路径

1，点击“工程－部件”，显示“部件”对话框，将“Microsoft Common Dialog control 6.0”选中，然后确定。 2，添加工具栏中的CommonDialog控件图标，将其添加到窗体上。 3，窗体添加Command控件和Text控件，用来浏览目录和保存默认路径。 4，在Command中添加以下代码： Private Sub Command1_Click()CommonDialog1.DialogTitle = "选择保存目录"CommonDialog1.Filter = "全部文件 (*.*)|*.*"CommonDialog1.FileName = "保存目录"CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveIf CommonDialog1.FileName "" ThenText1 = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(CommonDialog1.FileTitle))Open "C:\path.txt" For Output As #1 Print #1, Text1 '写入默认保存路径Close #1End IfEnd SubPrivate Sub Form_Load()On Error Resume NextIf Dir("C:\path.txt") "" ThenOpen "C:\path.txt" For Input As #1 '自动读出默认保存路径 Input #1, TEMPA Text1.Text = TEMPAClose #1End IfEnd Sub5，以上代码就达到TEXT1控件中保存默认保存路径的目的，Command1点击选择时能保存默认路径到c:\path.txt，程序运行时，自动读出默认保存路径。

VB怎么实现选择路径，打开路径？

VB6.0可使用CommonDialog 控件实现选择路径、打开路径。 通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。 两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似 代码实例： Private Sub Command1_Click() ' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly ' 指定缺省的过滤器 CommonDialog1.FilterIndex = 2 ' 显示“打开”对话框 CommonDialog1.ShowOpen ' 显示选定文件的名字 MsgBox CommonDialog1.FileName Exit SubErrHandler: ' 用户按了“取消”按钮 Exit SubEnd Sub

vb 读取自定义目录下exl文件单元格数据

你试试这个：
Private Sub CommandButton1_Click()
Dim BookA As New Workbook '先声明一个对象变量
Set BookA = Workbooks.Open("D:\tools\VB6.0\设备.xls")
Text1.Text = BookA.Sheets("表一").Range("E12").value
End Sub
你看看当 点击按钮后，系统有没有打开 设备.xls， 如果有，问题出在下一行：
Me.Text1.Text = BookA.Sheets("表一").Range("E12").value
可能你的Sheets（"表一")引用的不对， 可能是另外的名字。
如果设备.xls没有打开， 证明是 Excel打不开，用下面代码试试看，还是不行的话，可能你的电脑打不开Excel文件。

Private Sub CommandButton1_Click()
'定义变量
Dim xlAppA As Excel.Application
Dim BookA As Excel.Workbook
Dim xlSheetA As Excel.Worksheet
Set xlAppA = CreateObject("Excel.Application")
Set BookA = Workbooks.Open("D:\tools\VB6.0\设备.xls")
Text1.Text = BookA.Sheets("表一").Range("E12").value
End Sub

有问题可以继续提。谢谢。

如何设置mysql数据库的路径？

MySQL默认的数据文件存储目录为/var/lib/mysql。假如要把MySQL目录移到/home/data下需要进行下面几步：
1、home目录下建立data目录
cd /home
mkdir data
2、把MySQL服务进程停掉
mysqladmin -u root -p shutdown
3、把/var/lib/mysql整个目录移到/home/data
mv /var/lib/mysql　/home/data/
这样就把MySQL的数据文件移动到了/home/data/mysql下。
4、找到my***f配置文件
如果/etc/目录下没有my***f配置文件，请到/usr/share/mysql/下找到****f文件，拷贝其中一个到/etc/并改名为my***f)中。命令如下：

[root@test1 mysql]# cp /usr/share/mysql/my-medium***f　/etc/my***f

5、编辑MySQL的配置文件/etc/my***f
为保证MySQL能够正常工作，需要指明mysql.sock文件的产生位置。修改socket=/var/lib/mysql/mysql.sock一行中等号右边的值为：/home/mysql/mysql.sock。操作如下：

vi　 my***f　 (用vi工具编辑my***f文件，找到下列数据修改之)
# The MySQL server
[mysqld]
port　= 3306
#socket　 = /var/lib/mysql/mysql.sock(原内容，为了更稳妥用“#”注释此行)
socket　 = /home/data/mysql/mysql.sock　(加上此行)

6、修改MySQL启动脚本/etc/init.d/mysql
最后，需要修改MySQL启动脚本/etc/init.d/mysql，把其中datadir=/var/lib/mysql一行中，等号右边的路径改成你现在的实际存放路径：home/data/mysql。

[root@test1 etc]# vi　/etc/init.d/mysql
#datadir=/var/lib/mysql(注释此行)
datadir=/home/data/mysql (加上此行)

7、重新启动MySQL服务

/etc/init.d/mysql　start

或用reboot命令重启Linux
如果工作正常移动就成功了，否则对照前面的7步再检查一下。
还要注意目录的属主和权限。

VB中的技术性问题

我朋友是高手
这是他的的网址:
http://****czku***m/computer/pro/200510/computer_25946.html

VB问题全功略
http://vbboshi.diy.myrice***m/preblem/61-80/pr63.htm
如何让 VB 编辑环境文件存取的预设路径依项目不同而自动调整？
您知道 Debug 物件的 Assert Method 吗？
如何使用键盘移动控制项或改变控制项的大小？
如何快速移除项目中没有用到的元素？
如何知道磁盘机是使用那一种文件系统？
http://****emugua****/vbgl/1-20/pr5.htm

在QQ上跟我交流：可以加我的QQ：184269287有问题的直接说，我会在看到信息的第一时间，在QQ回复或者发邮件