How to define my file parent in vbs

[Johnwhite]

Hi experts,

my jsx script like this:

var myFolder=Folder(app.activeDocument.fullName);  
var myOpenFolder=Folder(myFolder.parent.fsName);  
alert(myFolder.parent.fsName);

how to translate it into vbs?

thanks

regard

John

[Laubender]

Hi John,

cannot help with the VB Script part.

FWIW: You should test if the active document is saved before using fullName.

Something like that:

var doc = app.documents[0];
if( doc.saved ){ var folderOfDoc = doc.fullName.parent };

Regards,
Uwe

[Mike Bro]

Hi John,

you can try the code below I put together using the InDesign_ScriptingGuide_VB. I don't know vbScript and have no way to test it.

Set myInDesign = CreateObject("InDesign.Application")

If myInDesign.ActiveDocument.Saved = True Then

myActiveDocument = myInDesign.ActiveDocument

Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")

myParentFolder = myFileSystemObject.GetFile(myActiveDocument).ParentFolder

MsgBox ("The folder containing the active document is: " & myParentFolder)

End If

Hope this helps you out.

Regards,

Mike

[Johnwhite]

thank you Mike,

not working.

error on line 5

the myActiveDocument is not found.

thanks

regard

John

[Mike Bro]

John,

Taking another stab at it......try the code below.

Set myInDesign = CreateObject("InDesign.Application")

If myInDesign.ActiveDocument.Saved = True Then

Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")

Dim myParentFolder = myFileSystemObject.GetFile(myInDesign).ParentFolder

MsgBox ("The folder containing the active document is: " & myParentFolder)

End If

Regards,

Mike

[Johnwhite]

Thank you Mike,

thanks so much.

but still not working.

John