Re: Asociace přípony k souboru

From: j.krajdl@tiscali.cz
Date: 26. 06. 2003, 12:48 CEST


>-- Původní zpráva --
>Reply-to: servis-internet@nawebu.cz
>From: "Petr Pokorny" <mail@pp21.cz>
>To: <servis-internet@nawebu.cz>
>Subject: Re: Asociace přípony k souboru
>Date: Fri, 20 Jun 2003 14:33:46 +0200
>
>
>A nepredava se jmeno oteviraneho souboru jako argument (%1)? Pokud uz teda
program neni spusten, pak se to snad predava pres DDE.
Nevim jak ve Visual Basic, ale Windows Scripting Host to obslouzi takhle:


Set WshShell = WScript.CreateObject("WScr
>pt.Shell")
If WScript.Arguments.Count > 0 Then
    Arg = WScript.Arguments(0)
    MsgBox Arg
Else
    MsgBox "Nebyl zadan argument"
    WScript.Quit
End If


Snad to ve VB nebude az tak jiny...

-pp21-


j.krajdl@tiscali.cz <j.krajdl@tis
>ali.cz>:

> Zdravim. Programuji ve Visual Basicu (verze 6.0) a zajímalo by mě, jak
k
> mému vytvořenému programu můžu asociovat nějakou příponu souboru (např.
> *.aaa). Samotnou asociaci v registru Windows umím, ale nevím, co mám
> připsat do prog
>amu, aby otevřel daný soubor. Tedy aby po spuštění
> nějak zjistil, jaký soubor byl otevřen.

Předem se omlouvám, že jsem napsal až teď. K internetu se tak často nedostanu.
Předávání jako argument mě jednou napadlo a po vytvoření velice jednoduchého
příkladu mi nakonec spadly celé Windows a od té doby jsem to nezkoušel.
Teď jsem to zkusil znovu a šlo to. Takže díky všem za odpovědi!

===================================================== reklama =====
Audit webhostingovych sluzeb - wAudit: http://www.lupa.cz/waudit/
Vyberte si nejk
>alitnejsi webhosting on-line.
===================================================================

-- 
-- Konference: SERVIS ------ Pravidla: http://pravidla.kab.cz/ -- 
-- Archiv, instrukce pro odhlaseni: http://internet.nawebu.cz/ -- 
-- Konfer
>nce Internet Info, s.r.o. ----- http://www.iinfo.cz/ -- 




________________________________________________________________________
Siemens A50
http://www.tiscali.cz/reklama-produkty/redir/a50.html

Barevný displej sice nemá, ale ta cena! Siemens A50 již od 977 Kč. http://www.oskar.cz



This archive was generated by hypermail 2.1.3 : 26. 06. 2003, 12:53 CEST