社区 › VB › 需要初始目录的帮助

Eloquintet 发表于 2007-10-24 09:35:04

需要初始目录的帮助

嘿，伙计们，我有一个很好用的程序，除了我只希望初始目录是自动保存。我知道这可能很容易，但我可以#039；我似乎不知道如何把它改成在这里工作。谁能帮帮我吗
Public Function GetFileOpen(Title As String, InitFolder As String, Filter As String) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
With OpenFile
    .hwndOwner = ThisDrawing.hWnd
    .lStructSize = Len(OpenFile)
    .lpstrFilter = Filter
    .nFilterIndex = 1
    .lpstrFile = String(257, 0)
    .nMaxFile = Len(OpenFile.lpstrFile) - 1
    .lpstrInitialDir = InitFolder
    .lpstrFileTitle = OpenFile.lpstrFile
    .nMaxFileTitle = OpenFile.nMaxFile
    .lpstrTitle = "Select File"
    .flags = 4
    .lpTemplateName = "Test"
End With
'
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
    GetFileOpen = ""
Else
    GetFileOpen = Left$(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile, Chr$(0)) - 1)
End If
End Function

Bryco 发表于 2007-10-24 10:00:36

我不知道&#039；我不太明白你在问什么
您发布的代码，是否提供了打开的dwg或任何dwg的名称？

Keith™ 发表于 2007-10-24 10:20:51

不知道……但是：    .lpstrInitialDir = InitFolder
至：
    .lpstrInitialDir = ThisDrawing.GetVariable("SAVEFILEPATH")
并删除参数#039；函数中的InitFolder作为字符串
等待vb/a主程序

Eloquintet 发表于 2007-10-24 18:57:19

路易斯，这应该行得通。。。

Eloquintet 发表于 2007-10-25 09:27:46

基本上，该例程允许您打开bak文件，然后将其保存为dwg文件，因为我主要使用它来恢复自动保存，我希望它从那里开始有意义。本人&#039；我试试，然后告诉你。谢谢大家

Keith™ 发表于 2007-10-25 09:45:58

嘿，我让例程工作了，但是当我尝试像我所有其他vba例程一样自动加载它时，它在加载时会给我这个错误。错误：读取坏字符（八进制）：21，如果我运行它，它会说找不到宏，但如果我手动加载它，它运行正常。这个错误是什么意思？

Eloquintet 发表于 2007-10-25 11:42:56

在谷歌上快速搜索一下，可能会有一些愚蠢的字符（可能是换行符或回车之类的）把你的程序搞砸了
如果单击调试--&gt；编译&nbsp；它有什么与众不同的地方吗？？

Bryco 发表于 2007-10-27 12:32:24

加载宏的方法是什么？

查看完整版本: 需要初始目录的帮助