我在调试 调取一个文件时是这样写的，App.Path & "\jianerfan.swf 可是提示我Object Required,请问我的写法有错吗？

Question

我是这样写的。结果出错了. Flash1.Movie = App.Path & "\jianerfan.swf"

Answer 1

放flash？
用的什么对象？

Answer 2

ShockwaveFlash1.Movie = app.path & "\dsclub.swf"
应该是没问题的

Answer 3

Private Sub Command1_Click()
Flash1.Play
End Sub
晕～哪里需要什么太多代码呀！只用几行就行了。如下。
Private Sub Command2_Click()
Flash1.Stop
End SubPrivate Sub Form_Load()
Flash1.Movie = App.Path & "\jianerfan.swf"
Flash1.Stop
End Sub
将Flash1.Movie = App.Path & "\jianerfan.swf"改为Flash1.Movie = c:\jianerfan.swf"就没问题了。我只是不明白，为什么用App对象时会出问题

Answer 4

你应该用iif
有的时候你的程序在根目录下，所以app.path是c:\
有的时候你的程序不是，那末就会是c:\abc\def
用这个没问题的
app.path & iif(Right(app.path, 1) = "\", "", "\") & "jianerfan.swf"

Answer 5

flash.movie = app.path + "jianerfan.swf"

Answer 6

错了,不好意思.是这样:
flash.movie = app.path + "\jianerfan.swf"

Answer 7

^_^ 是你搞错了，app.path你查查当他代表c、d等根目录时app.path后面已经加上"\"了，若他代表是一个普通的目录，则后面没有加"\"。

Answer 8

楼上说的没错，用app的时候要注意对“\”进行检查。