Runtime error '91'

[Psyny]

Olá pessoal!

Estou criando uma macro em VB para um programa chamado SolidWorks.

Mas está apresentando o erro:

Object variable or With block variable not set

Eu não entendo muito de VB no geral, sem duvida eu estou fazendo algo errado...

alguém pode me ajudar? O Código é:

Dim swApp As Object

Dim file As String
Dim psn As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long


Sub main()
   Set swApp = Application.SldWorks

   Set Part = swApp.ActiveDoc
   file = InputBox("Please, enter the file name")
   file = file & ".sldprt"

   psn.CopyFile "C:\Test\CavernaOrigen.SLDPRT", "C:\Test\" & file
   boolstatus = Part.AddComponent("C:\Test\" & file, 22.29001260703, 22.27347166485, 22.27137205309)
End Sub

O problem está no comando CopyFile, não sei usar o comando =/

Editado Agosto 27, 2009 por Psyny

[gabrieldb]

Dá uma olhada nisso e vê se ajuda.

http://msdn.microsoft.com/pt-br/library/064x715y(VS.80).aspx

[kuroi]

em qual linha acontece o erro??

[Psyny]

Opa!

Agora que percebi, tinha que declarar o objeto da variavel PSN ( nesse caso ):

Set psn = CreateObject("Scripting.FileSystemObject")

Então o CopyFile funcionou legal.

Obrigado pela ajuda pessoal!

Editado Agosto 28, 2009 por Psyny