VBScript open all files with same extension in a folder

I am new to VBScript and I am stuck with the below problem.

I have a folder with some files with the .qvw extension and I want to open all these files and then close them.

I am not able to find any solution which will do this task.

sFolder = "C:test"

Set oFSO = CreateObject("Scripting.FileSystemObject")



For Each oFile In oFSO.GetFolder(sFolder).Files

  If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then

    Set App = CreateObject("QlikTech.QlikView")

    Set newdoc = App.opendoc 

    newdoc.Activate

    newdoc.save

    newdoc.closedoc

  End if

Next

edited Nov 20 '18 at 7:27

Lankymart

11.5k438100

asked Nov 19 '18 at 19:11

Agranit

1

If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then seems the problem.
– CatCat
Nov 19 '18 at 19:14

Thank you. I fixed line If LCase(oFSO.GetExtensionName(oFile.Name)) = "qvw" . i am getting this error "Microsoft VBSc ript runtime error: Wrong number of arguments or invalid property assignment: 'App.opendoc' "
– Agranit
Nov 19 '18 at 19:19

1

App.opendoc probably wants a filename argument? How else would it know what file to open? Set newdoc = App.opendoc(oFile.Name)
– Mathieu Guindon
Nov 19 '18 at 19:50

Thank you @MathieuGuindon - i am getting this error now " runtime error: Object required: 'newdoc' " . Would be you be able to help me out with this please.
– Agranit
Nov 19 '18 at 20:27

1

You need to look at the documentation for the API you're using. I don't know the QlikView object model.
– Mathieu Guindon
Nov 19 '18 at 21:08

add a comment |

I am new to VBScript and I am stuck with the below problem.

I have a folder with some files with the .qvw extension and I want to open all these files and then close them.

I am not able to find any solution which will do this task.

sFolder = "C:test"

Set oFSO = CreateObject("Scripting.FileSystemObject")



For Each oFile In oFSO.GetFolder(sFolder).Files

  If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then

    Set App = CreateObject("QlikTech.QlikView")

    Set newdoc = App.opendoc 

    newdoc.Activate

    newdoc.save

    newdoc.closedoc

  End if

Next

edited Nov 20 '18 at 7:27

Lankymart

11.5k438100

asked Nov 19 '18 at 19:11

Agranit

1

If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then seems the problem.
– CatCat
Nov 19 '18 at 19:14

Thank you. I fixed line If LCase(oFSO.GetExtensionName(oFile.Name)) = "qvw" . i am getting this error "Microsoft VBSc ript runtime error: Wrong number of arguments or invalid property assignment: 'App.opendoc' "
– Agranit
Nov 19 '18 at 19:19

1

App.opendoc probably wants a filename argument? How else would it know what file to open? Set newdoc = App.opendoc(oFile.Name)
– Mathieu Guindon
Nov 19 '18 at 19:50

Thank you @MathieuGuindon - i am getting this error now " runtime error: Object required: 'newdoc' " . Would be you be able to help me out with this please.
– Agranit
Nov 19 '18 at 20:27

1

You need to look at the documentation for the API you're using. I don't know the QlikView object model.
– Mathieu Guindon
Nov 19 '18 at 21:08

add a comment |

I am new to VBScript and I am stuck with the below problem.

I have a folder with some files with the .qvw extension and I want to open all these files and then close them.

I am not able to find any solution which will do this task.

sFolder = "C:test"

Set oFSO = CreateObject("Scripting.FileSystemObject")



For Each oFile In oFSO.GetFolder(sFolder).Files

  If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then

    Set App = CreateObject("QlikTech.QlikView")

    Set newdoc = App.opendoc 

    newdoc.Activate

    newdoc.save

    newdoc.closedoc

  End if

Next

edited Nov 20 '18 at 7:27

Lankymart

11.5k438100

asked Nov 19 '18 at 19:11

Agranit

I am new to VBScript and I am stuck with the below problem.

I have a folder with some files with the .qvw extension and I want to open all these files and then close them.

I am not able to find any solution which will do this task.

sFolder = "C:test"

Set oFSO = CreateObject("Scripting.FileSystemObject")



For Each oFile In oFSO.GetFolder(sFolder).Files

  If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then

    Set App = CreateObject("QlikTech.QlikView")

    Set newdoc = App.opendoc 

    newdoc.Activate

    newdoc.save

    newdoc.closedoc

  End if

Next

vbscript filesystemobject

edited Nov 20 '18 at 7:27

Lankymart

11.5k438100

asked Nov 19 '18 at 19:11

Agranit

edited Nov 20 '18 at 7:27

Lankymart

11.5k438100

asked Nov 19 '18 at 19:11

Agranit

edited Nov 20 '18 at 7:27

Lankymart

11.5k438100

edited Nov 20 '18 at 7:27

Lankymart

11.5k438100

edited Nov 20 '18 at 7:27

Lankymart

11.5k438100

asked Nov 19 '18 at 19:11

Agranit

asked Nov 19 '18 at 19:11

Agranit

asked Nov 19 '18 at 19:11

Agranit

1

If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then seems the problem.
– CatCat
Nov 19 '18 at 19:14

Thank you. I fixed line If LCase(oFSO.GetExtensionName(oFile.Name)) = "qvw" . i am getting this error "Microsoft VBSc ript runtime error: Wrong number of arguments or invalid property assignment: 'App.opendoc' "
– Agranit
Nov 19 '18 at 19:19

1

App.opendoc probably wants a filename argument? How else would it know what file to open? Set newdoc = App.opendoc(oFile.Name)
– Mathieu Guindon
Nov 19 '18 at 19:50

Thank you @MathieuGuindon - i am getting this error now " runtime error: Object required: 'newdoc' " . Would be you be able to help me out with this please.
– Agranit
Nov 19 '18 at 20:27

1

You need to look at the documentation for the API you're using. I don't know the QlikView object model.
– Mathieu Guindon
Nov 19 '18 at 21:08

add a comment |

1

If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then seems the problem.
– CatCat
Nov 19 '18 at 19:14

Thank you. I fixed line If LCase(oFSO.GetExtensionName(oFile.Name)) = "qvw" . i am getting this error "Microsoft VBSc ript runtime error: Wrong number of arguments or invalid property assignment: 'App.opendoc' "
– Agranit
Nov 19 '18 at 19:19

1

App.opendoc probably wants a filename argument? How else would it know what file to open? Set newdoc = App.opendoc(oFile.Name)
– Mathieu Guindon
Nov 19 '18 at 19:50

Thank you @MathieuGuindon - i am getting this error now " runtime error: Object required: 'newdoc' " . Would be you be able to help me out with this please.
– Agranit
Nov 19 '18 at 20:27

1

You need to look at the documentation for the API you're using. I don't know the QlikView object model.
– Mathieu Guindon
Nov 19 '18 at 21:08

If LCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then seems the problem.
– CatCat
Nov 19 '18 at 19:14

Thank you. I fixed line If LCase(oFSO.GetExtensionName(oFile.Name)) = "qvw" . i am getting this error "Microsoft VBSc ript runtime error: Wrong number of arguments or invalid property assignment: 'App.opendoc' "
– Agranit
Nov 19 '18 at 19:19

App.opendoc probably wants a filename argument? How else would it know what file to open? Set newdoc = App.opendoc(oFile.Name)
– Mathieu Guindon
Nov 19 '18 at 19:50

Thank you @MathieuGuindon - i am getting this error now " runtime error: Object required: 'newdoc' " . Would be you be able to help me out with this please.
– Agranit
Nov 19 '18 at 20:27

You need to look at the documentation for the API you're using. I don't know the QlikView object model.
– Mathieu Guindon
Nov 19 '18 at 21:08

add a comment |

0

active

oldest

votes

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});

}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53381136%2fvbscript-open-all-files-with-same-extension-in-a-folder%23new-answer', 'question_page');
}
);

Post as a guest

Name

Required, but never shown

0

active

oldest

votes

0

active

oldest

votes

draft saved

draft discarded

Thanks for contributing an answer to Stack Overflow!

Please be sure to answer the question. Provide details and share your research!

But avoid …

Asking for help, clarification, or responding to other answers.

Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.

Some of your past answers have not been well-received, and you're in danger of being blocked from answering.

Please pay close attention to the following guidance:

Please be sure to answer the question. Provide details and share your research!

But avoid …

Asking for help, clarification, or responding to other answers.

Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Name

Required, but never shown

Name

Required, but never shown

This page is only for reference, If you need detailed information, please check here

Search This Blog

Ufyukyu