一个在vb程序设置默认目录的问题!!

earphone 2000-08-06 09:43:00
请教,请教,我在写一个程序,在程序中需要大量打开文件,这是不是可以设置一下
默认目录,减少工作量,能不能帮我把设置默认目录的哪一短写一下,谢谢
...全文
110 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
无言无忌 2000-08-06
  • 打赏
  • 举报
回复
用INI文件随时随更改可能更好.

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Global SysDir1 as String
Global SysDir2 as String

Sub ReadIni()
dim i as long

i = GetPrivateProfileString("YourTitle", "DIRECTORY1", "C:\", iniStr, Len
(iniStr), "YOUR.INI")
SysDir1 = Left$(iniStr, i)

i = GetPrivateProfileString("YourTitle", "DIRECTORY2", "C:\", iniStr, Len
(iniStr), "YOUR.INI")
SysDir2 = Left$(iniStr, i)

End Sub

以下是YOUR.INI的示例内容:
[YourTitle]
DIRECTORY1=C:\dir1
DIRECTORY2=C:\dir2
YOUR.INI需保存在Windows目录中
wulang 2000-08-06
  • 打赏
  • 举报
回复
比如你的默认目录在E:\aaa
ChDrive "E"
ChDir "E:\aaa"

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧