需要有关初始目录的帮助

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

嘿，伙计们，
我有一个运行良好的程序，除了我只希望初始目录是Autosave。我知道这可能很容易，但我似乎不知道如何将其更改为在这里工作。有人能帮我吗？

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

我不太明白你在问什么。
您发布的代码，是否为您提供了开放 dwg 或任何 dwg 的名称？

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

不知道....但是:

copy

    .lpstrInitialDir = InitFolder

收件人:

copy

    .lpstrInitialDir = ThisDrawing.GetVariable("SAVEFILEPATH")

并将参数“InitFolder”作为字符串从函数中移除。？？
等待vb/a大师

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

路易斯，那应该有用。。。

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

基本上，该例程允许您打开bak文件，然后将其保存为dwg文件。由于我主要使用它来恢复自动保存，因此我希望从那里开始。我会试一试，然后告诉你。谢谢大家

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

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

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

在Google上快速搜索表明，可能会有一些愚蠢的字符（可能是换行符或返回或类似的东西）使程序中的工作变得混乱。
如果单击“调试”（DEBUG--> COMPILE），会发生什么情况？它发现什么不寻常的东西吗？

Keith · 发表于 2007-10-27 12:32:24

加载宏的方法是什么？

需要有关初始目录的帮助

发表回复

精选推荐