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

Question

比如你的默认目录在E:\aaa
ChDrive "E"
ChDir "E:\aaa"

Answer 1

用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 LongGlobal SysDir1 as String
Global SysDir2 as StringSub 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目录中