-- Bernhard Treutwein, IuK, Ref. III A 3 Bernhard.Treutwein(at)verwaltung uni-muenchen de ------------------------------------------------------------ browse.vbs ---- ' Author: Bernhard Treutwein BdT(at)wildwein de ' based on a hotline answer of the german computer ' magazin c't, issue 9/2004, p. 184 ' original script and copyright available at: ' ftp://ftp.heise.de/pub/ct/listings/0409-184.zip ' modified with help of the original author Hajo Schulz [hajo.schulz{([at]})nowhere.xy' Last change: 28-Apr-2004 ' mdified script published in c't, issue 12/2004, p. 204 ' source available at: ' ftp://ftp.heise.de/pub/ct/listings/0411-204.zip ' Documentation for BrowseForFolder: ' http://msdn.microsoft.com/library/en-us/shellcc/platform/shell/reference/obje cts/shell/browseforfolder.asp Option Explicit Dim sh, app, fldr Dim prg, arg, mypath, root Dim i Set sh = WScript.CreateObject("WScript.Shell") Set app = Wscript.CreateObject("Shell.Application") prg = "D:\Programme\BlackBox\BlackBox.exe" ' Define prg as the full path name of your BlackBox installation root = "H:\BlackBox\" ' Define root as the full path name of the root directory of your BlackBox Projects set fldr = app.BrowseForFolder(0, "Please choose project folder" & CHR(10) & CHR(10) & "Cancel uses Blackbox Program directory", 65, root) If fldr Is nothing then ' Cancel pushed, use default mypath = "" Else mypath = fldr.Self.Path End If If mypath = "" Then sh.Run prg, 1, false Else sh.CurrentDirectory = mypath sh.Run prg & " " & "/use " & mypath, 1, false End If ---------------------------------------------------------- blackbox.cmd ---- C:\WINDOWS\System32\WScript.exe "d:\Programme\blackbox\browse.vbs" ---------------------------------------------------------------------------- -------------------------------------------- To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to: blackbox-request{([at]})nowhere.xyTo get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address. Send any problem reports or questions related to this email list to the list owner at owner-blackbox{([at]})nowhere.xyCurrent posting policy: a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead. b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays. ----boundary-LibPST-iamunique-344555438_-_- Content-type: application/rtf Content-transfer-encoding: base64 Content-Disposition: attachment; filename="rtf-body.rtf" e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIHRoZXJlIGlzIGFuIGVhc3kgd2F5IHRvIGtlZXAg YSBjbGVhbiB2ZXJzaW9uIG9mIEJsYWNrQm94XHBhcg0KYnkgdXNpbmcgdGhlICJuZXR3b3JrIiBm ZWF0dXJlLiBEb2luZyBzb21lIHNlbGYtY2l0YXRpb246XHBhcg0KXHBhcg0KPiAtLS0tLU9yaWdp bmFsIE1lc3NhZ2UtLS0tLVxwYXINCj4gRnJvbTogVHJldXR3ZWluIEJlcm5oYXJkIFxwYXINCj4g U2VudDogV2VkbmVzZGF5LCBBcHJpbCAyOCwgMjAwNCAxOjQyIFBNXHBhcg0KPiBUbzogYmxhY2ti b3hAb2Jlcm9uLmNoXHBhcg0KPiBTdWJqZWN0OiBUaXA6IFByb2plY3RzICYgQmxhY2tCb3hccGFy DQo+IFxwYXINCj4gXHBhcg0KPiBEZWFyIEJsYWNrQm94IHVzZXJzLFxwYXINCj4gXHBhcg0KPiBB IGxpdHRsZSBrbm93biBmZWF0dXJlIG9mIEJsYWNrQm94IGlzIHRoZSBhYmlsaXR5IHRvIHVzZSB0 aGUgXHBhcg0KPiBpbnN0YWxsYXRpb24gZGlyZWN0b3J5IGluIHJlYWQtb25seSBtb2RlIGFuZCBo YXZlIGRpZmZlcmVudFxwYXINCj4gcHJvamVjdHMgdW5kZXIgZGlmZmVyZW50IGRpcmVjdG9yaWVz LiBUaGlzIGFsbG93cyBmb3JccGFyDQo+IHByb2plY3Qgc3BlY2lmaWMgY29uZmlndXJhdGlvbiBv ZiB0aGUgZ2xvYmFsIG1lbnVzIGV0Yy5ccGFyDQo+IFRoaXMgZmVhdHVyZSBpcyBoaWRkZW4gdW5k ZXIgIlNlcnZlciBpbnN0YWxsYXRpb24gKFdpbmRvd3Mgb25seSkiXHBhcg0KPiBpbiAiU3lzdGVt L0RvY3UvVXNlci1NYW4ub2RjIi4gVGhlIG9ubHkgZHJhd2JhY2sgaXMgdGhhdCB5b3VccGFyDQo+ IGhhdmUgdG8gbW9kaWZ5IHRoZSB3YXkgeW91IGNhbGwgQmxhY2tCb3ggZm9yIGRpZmZlcmVudCBw cm9qZWN0cy5ccGFyDQo+IFxwYXINCj4gRW5jbG9zZWQgaXMgYSBsaXR0bGUgVmlzdWFsLUJhc2lj IHNjcmlwdCwgd2hpY2ggYWxsb3dzIGFsbFxwYXINCj4gcHJvamVjdHMgdG8gYmUgc3RvcmVkIHVu ZGVyIHNvbWUgcm9vdCBwYXRoIChIOlxcQmxhY2tCb3ggaW5ccGFyDQo+IG15IGNhc2UpIGFuZCB0 byBjaG9vc2UgZnJvbSB0aGlzIG1lbnUgYSBwcm9qZWN0IGZvbGRlci5ccGFyDQo+IEl0IHRoZW4g c3dpdGNoZXMgdGhlIGN1cnJlbnQgZGlyZWN0b3J5IHRvIHRoaXMgcGF0aCAod2l0aFxwYXINCj4g dGhlIHJlc3VsdCB0aGF0IEZpbGUtPk9wZW4gb2ZmZXJzIHlvdSB5b3VyIHByb2plY3QgcGF0aClc cGFyDQo+IGFuZCBhcHBlbmRzIHRoZSAvdXNlIHBhdGggdG8gdGhlIEJsYWNrQm94IGNvbW1hbmQg bGluZS5ccGFyDQo+IFxwYXINCj4gRm9yIHRob3NlIG9mIHlvdSwgd2hvIGhhdmUgZGlzYWJsZWQg dGhlIGF1dG9tYXRpYyAoZG91YmxlXHBhcg0KPiBjbGljaykgZXhlY3V0aW9uIG9mIFZCUyBmb3Ig c2VjdXJpdHkgcmVhc29ucywgYSB0aW55IFxwYXINCj4gQmxhY2tCb3guY21kIGlzIGluY2x1ZGVk LlxwYXINCj4gXHBhcg0KPiByZWdhcmRzXHBhcg0KPiAtLVxwYXINCj4gXHRhYiBCZXJuaGFyZCBU cmV1dHdlaW5ccGFyDQo+IFx0YWIgQmVybmhhcmQuVHJldXR3ZWluKGF0KXZlcndhbHR1bmcgdW5p LW11ZW5jaGVuIGRlICh3b3JrKVxwYXINCj4gXHRhYiBCZFQoYXQpd2lsZHdlaW4gZGUgKGhvbWUp XHBhcg0KLS1ccGFyDQpcdGFiIEJlcm5oYXJkIFRyZXV0d2VpbiwgSXVLLCBSZWYuIElJSSBBIDNc cGFyDQpcdGFiIEJlcm5oYXJkLlRyZXV0d2VpbihhdCl2ZXJ3YWx0dW5nIHVuaS1tdWVuY2hlbiBk ZVxwYXINClxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLSBicm93c2UudmJzIC0tLS1ccGFyDQonIEF1dGhvcjogQmVybmhhcmQg VHJldXR3ZWluIEJkVChhdCl3aWxkd2VpbiBkZVxwYXINCicgYmFzZWQgb24gYSBob3RsaW5lIGFu c3dlciBvZiB0aGUgZ2VybWFuIGNvbXB1dGVyIFxwYXINCicgbWFnYXppbiBjJ3QsIGlzc3VlIDkv MjAwNCwgcC4gMTg0XHBhcg0KJyBvcmlnaW5hbCBzY3JpcHQgYW5kIGNvcHlyaWdodCBhdmFpbGFi bGUgYXQ6XHBhcg0KJyBmdHA6Ly9mdHAuaGVpc2UuZGUvcHViL2N0L2xpc3RpbmdzLzA0MDktMTg0 LnppcFxwYXINCicgbW9kaWZpZWQgd2l0aCBoZWxwIG9mIHRoZSBvcmlnaW5hbCBhdXRob3IgSGFq byBTY2h1bHpccGFyDQpbaGFqby5zY2h1bHpAaGVpc2UuZGVdXHBhcg0KJyBMYXN0IGNoYW5nZTog MjgtQXByLTIwMDRccGFyDQonIG1kaWZpZWQgc2NyaXB0IHB1Ymxpc2hlZCBpbiBjJ3QsIGlzc3Vl IDEyLzIwMDQsIHAuIDIwNFxwYXINCicgc291cmNlIGF2YWlsYWJsZSBhdDpccGFyDQonIGZ0cDov L2Z0cC5oZWlzZS5kZS9wdWIvY3QvbGlzdGluZ3MvMDQxMS0yMDQuemlwXHBhcg0KJyBEb2N1bWVu dGF0aW9uIGZvciBCcm93c2VGb3JGb2xkZXI6XHBhcg0KJ1xwYXINCmh0dHA6Ly9tc2RuLm1pY3Jv c29mdC5jb20vbGlicmFyeS9lbi11cy9zaGVsbGNjL3BsYXRmb3JtL3NoZWxsL3JlZmVyZW5jZS9v YmplXHBhcg0KY3RzL3NoZWxsL2Jyb3dzZWZvcmZvbGRlci5hc3BccGFyDQpccGFyDQpPcHRpb24g RXhwbGljaXRccGFyDQpEaW0gc2gsIGFwcCwgZmxkclxwYXINCkRpbSBwcmcsIGFyZywgbXlwYXRo LCByb290XHBhcg0KRGltIGlccGFyDQpccGFyDQpTZXQgc2ggPSBXU2NyaXB0LkNyZWF0ZU9iamVj dCgiV1NjcmlwdC5TaGVsbCIpXHBhcg0KU2V0IGFwcCA9IFdzY3JpcHQuQ3JlYXRlT2JqZWN0KCJT aGVsbC5BcHBsaWNhdGlvbiIpXHBhcg0KXHBhcg0KXHBhcg0KcHJnID0gIkQ6XFxQcm9ncmFtbWVc XEJsYWNrQm94XFxCbGFja0JveC5leGUiICAgJyBEZWZpbmUgcHJnIGFzIHRoZSBmdWxsIHBhdGhc cGFyDQpuYW1lIG9mIHlvdXIgQmxhY2tCb3ggaW5zdGFsbGF0aW9uXHBhcg0Kcm9vdCA9ICJIOlxc QmxhY2tCb3hcXCIgICAgICAgICAgICAgICAgICAgICAgICAnIERlZmluZSByb290IGFzIHRoZSBm dWxsIHBhdGhccGFyDQpuYW1lIG9mIHRoZSByb290IGRpcmVjdG9yeSBvZiB5b3VyIEJsYWNrQm94 IFByb2plY3RzXHBhcg0KXHBhcg0Kc2V0IGZsZHIgPSBhcHAuQnJvd3NlRm9yRm9sZGVyKDAsICJQ bGVhc2UgY2hvb3NlIHByb2plY3QgZm9sZGVyIiAmIENIUigxMCkgJlxwYXINCkNIUigxMCkgJiAi Q2FuY2VsIHVzZXMgQmxhY2tib3ggUHJvZ3JhbSBkaXJlY3RvcnkiLCA2NSwgcm9vdClccGFyDQpJ ZiBmbGRyIElzIG5vdGhpbmcgdGhlbiAnIENhbmNlbCBwdXNoZWQsIHVzZSBkZWZhdWx0XHBhcg0K ICBteXBhdGggPSAiIlxwYXINCiBFbHNlXHBhcg0KICBteXBhdGggPSBmbGRyLlNlbGYuUGF0aFxw YXINCkVuZCBJZlxwYXINClxwYXINCklmIG15cGF0aCA9ICIiIFRoZW5ccGFyDQogIHNoLlJ1biBw cmcsIDEsIGZhbHNlXHBhcg0KIEVsc2VccGFyDQogIHNoLkN1cnJlbnREaXJlY3RvcnkgPSBteXBh dGhccGFyDQogIHNoLlJ1biBwcmcgJiAiICIgJiAiL3VzZSAiICYgbXlwYXRoLCAxLCBmYWxzZVxw YXINCkVuZCBJZlxwYXINClxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0gYmxhY2tib3guY21kIC0tLS1ccGFyDQpDOlxcV0lORE9X U1xcU3lzdGVtMzJcXFdTY3JpcHQuZXhlICJkOlxcUHJvZ3JhbW1lXFxibGFja2JveFxcYnJvd3Nl LnZicyJccGFyDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNjcmliZSBmcm9tIHRo aXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJ1bnN1 YnNjcmliZSIgdG86XHBhcg0KICAgYmxhY2tib3gtcmVxdWVzdEBvYmVyb24uY2hccGFyDQpccGFy DQpUbyBnZXQgYSBsaXN0IG9mIHZhbGlkIGUtbWFpbCBjb21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25z IG9uIHRoZWlyIHVzYWdlLCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJoZWxw IiB0byB0aGUgYWJvdmUgYWRkcmVzcy5ccGFyDQpccGFyDQpTZW5kIGFueSBwcm9ibGVtIHJlcG9y dHMgb3IgcXVlc3Rpb25zIHJlbGF0ZWQgdG8gdGhpcyBlbWFpbCBsaXN0IHRvIHRoZSBsaXN0IG93 bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVu dCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQphKSBUbyBwb3N0IHlvdSBzaG91bGQgdXNlIHRo ZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5n IGxpc3QuIFRoYXQgd2F5LCB0aGUgbGlzdCBzZXJ2ZXIgd2lsbCByZWNvZ25pemUgeW91IGFzIHN1 YnNjcmliZXIgYW5kIGZvcndhcmQgeW91ciBwb3N0aW5nIGltbWVkaWF0ZWx5LCB3aXRob3V0IGNy ZWF0aW5nIGFueSBvdmVyaGVhZC5ccGFyDQpccGFyDQpiKSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5 b3UgY2Fubm90IHBvc3QgZnJvbSB0aGUgYWRkcmVzcywgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3Jp YmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNl IHVuZGVyc3RhbmQgdGhhdCBtb2RlcmF0aW9uIHdpbGwgb2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwg aW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRzIG9yIGhvbHlkYXlzLlxwYXINCn0 ----boundary-LibPST-iamunique-344555438_-_---Received on Wed Jan 12 2005 - 11:11:22 UTC
This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:28:27 UTC