Autoform不論是3.X還是4.X,用缺省安裝的快捷方式啟動的時候,進入Autoform打開文檔的位置都是用戶目錄(如C:\Documents and Settings\username,username為當前用戶名),3.X版本的可以通過修改桌面快捷方式的目錄起始位置而達到啟動打開預先設定的目錄(右鍵點擊Autoform快捷方式-屬性-快捷方式-起始位置),避免缺省手工輸入的麻煩,但是該方法對于4.X版本根本不起作用,進入Autoform后打開文檔的位置還是用戶目錄。

下面來介紹設置Autoform起始工作目錄的三個方法:

方法一:
修改啟動Autoform的腳本文件,即到Autoform安裝目錄修改af-xstart.vbs文件(右鍵選編輯),
找到
XAF = """" & "$AF_HOME_XX/xaf_X.XX " & ARGS & " -geom +0+0" & """"
其中XX/X.XX為Autoform的版本號
把它改為
XAF = """" & "$AF_HOME_XX/xaf_X.XX -wd /dev/fs/X/.../.../ " & ARGS & " -geom +0+0" & """"
其中X為盤符,/.../.../為路經,記得以/結尾。
存盤,運行OK。

如果改了還是不行,那肯定是沒有修改正確,你可以把你的af-xstart.vbs文件和目錄發給我,我可以幫你修改。

下面的是我的af-xstart.vbs,注意看單引號后的注釋:

' AutoForm startup vbs file
' AutoForm Engineering GmbH
' 2004-12-10 gk
' 增加Autoform啟動預設工作目錄的支持,by plusplus, 2008-03-24
 

Option Explicit

Dim ARGS
Dim FILENAME
Dim WORKDIR

ARGS = ""
FILENAME = ""
Const device = "/dev/fs/"
Const netdir = "/net"

' 定義工作目錄, 只須更改&后面路徑,盤符不用帶冒號,
' 格式:"盤符/目錄/目錄/",可根據自己的需要定義
WORKDIR = device & "D/Autoform_Workshop/"

' Autoform界面執行文件
' AF_HOME_XX(可為32/40/41,根據af實際的版本)
' xaf_X.X.X(可為3.2/4.04/4.07/4.1.0/4.1.1, 根據af實際的版本)
Const xafexecute = "$AF_HOME_41/xaf_4.1.1"

'Autoform版本顯示, 可根據af實際的版本更改
Const afversion = "AutoForm Version 4.1.1"

StartAutoForm()

WScript.Quit

function GetPosixName()
Dim PosixName, J, Length, start, Pos
PosixName = ""
Length=Len(FILENAME)
Pos = Instr(FILENAME, ":\")
If Pos > 0 Then
PosixName = device & Mid(FILENAME, Pos-1, 1)
Else
Pos = Instr(FILENAME, "\\")
If Pos > 0 Then
PosixName = netdir
Else
PosixName = ""
End if
End if

If (Pos > 0) Then
Start = Pos + 1
Else
Start = 1
End if

For J = Start to Length
If Mid(FILENAME, J, 1) = "\" Then
PosixName = PosixName & "/"
else
PosixName = PosixName & Mid(FILENAME, J, 1)
End if
Next

PosixName = "\""" & PosixName & "\"""

' WScript.Echo PosixName
GetPosixName = PosixName

end function

function StartAutoForm

Dim I, ExceedVersion, ExceedReg, ExceedPath, Rsxpath, Interix, Exceed
Dim PSX, KSH, XAF, WSHShell, objArgs

set WSHShell = WScript.CreateObject("WScript.Shell")
set objArgs = WScript.Arguments

For I = 0 to objArgs.Count - 1
If objArgs(I) = "-jn" Then
FileName = objArgs(I+1)
ARGS = ARGS & " " & objArgs(I) & " " & GetPosixName
I=I+2
Else
ARGS = ARGS & " " & objArgs(I)
End if
Next

' WScript.Echo ARGS

ExceedVersion = WSHShell.RegRead("HKLM\SOFTWARE\AutoForm\AutoForm\4.1.000\EXCEED_VERSION")
ExceedReg = "HKLM\SOFTWARE\Hummingbird\Connectivity\" & ExceedVersion & "\Exceed\HomeDir"
ExceedReg = "" & ExceedReg & ""

ExceedPath = WSHShell.RegRead(ExceedReg)
Rsxpath = WSHShell.RegRead("HKLM\SOFTWARE\AutoForm\AutoForm\4.1.000\WINSYS32DIR")
Interix = WSHShell.RegRead("HKLM\SOFTWARE\AutoForm\AutoForm\4.1.000\INTERIXDIR")

Exceed = ExceedPath & "exceed.exe"
Exceed = """" & Exceed & """"
WSHShell.Run(Exceed)

PSX = Rsxpath & "\POSIX.EXE /c "
KSH = Interix & "\bin\ksh -l -c "
XAF = """" & xafexecute & " -nofork " & "-wd " & WORKDIR & ARGS & " -geom +0+0" & """"

XAF = KSH & XAF
XAF = PSX & XAF

' Start hidden (no dos-box, comment out when startup problems - see below)
WshShell.Run "cmd.exe /C " & XAF , 0

' Start XAF (with dos-box, comment in when startup problems w/o dos-box)
' WSHShell.Run(XAF)

' WshShell.Popup ARGS
WshShell.Popup "Starting AutoForm ...",2, afversion

end function

af-xstart.vbs腳本文件下載

不過該方法的缺點是:改變了整個windows的home目錄,af的設置變量會重新改寫到
新的home目錄,如果有其他程序用到home目錄,也將定位到此目錄。

方法三:
切換到工作目錄,點擊sim文件,即可運行Autoform(適用于4.xx版本),那么Autoform的工作目錄就是當前的目錄。