我.exe
的 Windows XP PC 上正在运行它。
运行此程序.exe
需要同一目录中的文件,在 Windows XP 中可以毫无问题地找到它。但在 Windows Vista 中(我在几台机器上尝试过,其中一些机器可以运行)无法运行。
我猜是找不到路径。该程序是用 Basic 编写的(是的,我知道……)
我在下面附上了代码。你能想到任何解决方法吗?
位于程序也在 Windows 控制台.exe
中C:\tools
运行(它启动但在执行过程中找不到程序创建者制作的自定义文件类型 .TOP)
' PROGRAMM TOP11.BAS
DEFDBL A-Z
CLS
LOCATE 1, 1
COLOR 14, 1
FOR I = 1 TO 80
PRINT "±";
NEXT I
LOCATE 1, 35: PRINT "ΝΝ TOP11 ΝΝ"
PRINT " €€‚—‚„‘ ’— ‹„’†‘„— ‘’† „”€„€ ’†‘ ‡€€‘‘†‘ ‰€ † „.‚.‘.€. "
COLOR 7, 0
PRINT "-------------------------------------------------------------------------------"
PRINT
INPUT "ƒι©« «¦¤ ©¬¤«Ά©«γ ¤ΰγ... : ", Factor#
INPUT "¤¦£ ¨®ε¦¬ [.TOP] : ", topfile$
VIEW PRINT 7 TO 25
file1$ = topfile$ + ".TOP"
file2$ = topfile$ + ".T_P"
file3$ = "Syntel"
OPEN file3$ FOR OUTPUT AS #3
PRINT #3, " ‘¬¤«Ά©«γ ¤ΰγ = " + STR$(Factor#) + " †‹„‹†€: " + DATE$
CLOSE #3
command1$ = "copy" + " " + file1$ + " " + file2$
SHELL command1$ '’¦ ¨®ε¦ .TOP ¤« ¨α« £ «¤ ΅«αΆ¥ .T_P
OPEN file2$ FOR INPUT AS #1
OPEN file1$ FOR OUTPUT AS #2
bb$ = " \\\ \ , ###.#### ###.#### ####.### ##.### "
DO
LINE INPUT #1, Line$
Line$ = RTRIM$(LTRIM$(Line$))
icode$ = LEFT$(Line$, 1)
IF icode$ = "1" THEN
Line$ = " " + Line$
PRINT #2, Line$
PRINT Line$
ELSEIF icode$ = "2" THEN
Line$ = " " + Line$
PRINT #2, Line$
PRINT Line$
ELSEIF icode$ = "3" THEN
Number$ = MID$(Line$, 3, 6)
Hangle = VAL(MID$(Line$, 14, 9))
Zangle = VAL(MID$(Line$, 25, 9))
Distance = VAL(MID$(Line$, 36, 9))
Distance = Distance * Factor#
Height = VAL(MID$(Line$, 48, 6))
PRINT #2, USING bb$; icode$; Number$; Hangle; Zangle; Distance; Height
PRINT USING bb$; icode$; Number$; Hangle; Zangle; Distance; Height
ELSE
END IF
LOOP UNTIL EOF(1)
VIEW PRINT
CLS
LOCATE 1, 1
PRINT " *** ’„‘ ’“ ‚€‹‹€’‘ *** "
END
答案1
哇!
嗯,我的第一个猜测是UAC(使用帐户控制)问题,请尝试右键单击该文件并选择Run as administrator
,看看它是否有效。