Newsgroup: it.comp.lang.visual-basic
Titolo: Argomenti Riga di Comando

Vorrei sapere come si può impostare un programma creato con Vb per accettare
argomenti da riga di comando.
Nei vecchi programmi dos si poteva, ad esempio, aprire un file scrivendo:
nomeprogramma.exe filedaaprire.txt
Mi interesserebbe inoltre cercare di associare un'estensione file al mio
programma in modo da potere aprire i file cliccando semplicemente su di
essi.
Grazie a chiunque possa aiutarmi
Nicola Ottomano

 su di essi.
passo...
--
Salutoni
Sergio

 Nicola Ottomano
--
ciao
http://www.sundaysw.com

 su di essi.
Due strade:
1)
Gestione Risorse, visualizza, opzioni cartella, tipi di file, nuovo....
2)
Nel registry, c'è l'elenco di tutte le estensioni e delle applicazioni
associate.
Al termine del setup della tua app, vai a scrivere nel registry le chiavi
che servono per associare l'estensione al tuo applicativo, con tanto di
percorso completo dell'exe.
Ciao
Alberto
--
E non so se avrò gli amici a farmi il coro,
o se avrò soltanto volti sconosciuti,
canterò le mie canzoni a tutti loro
e alla fine della strada
potrò dire che i miei giorni li ho vissuti...

 ha scritto nel messaggio
news:b59tst$udd$1...@lacerta.tiscalinet.it...

In fondo a questa reply c'e' la funzione AssociaFile() che permette di
associare un estensione col programma col quale aprirlo.
Riguardo alla linea comando non c'e' molto da dire.
Da codice VB puoi accedere agli argomenti della linea comando usando
Command, ossia
MieiArgomenti = Command
Se poi vuoi fare il debugging del programma con alcuni argomenti, basta che
scegli: Progetto->Proprieta'->Crea e trovi in basso lo spazio per inserire
degli argomenti della linea comando per fare delle prove.
ciao
Paolo B.
Private Function WriteString( _
        ByVal key As Long, _
        ByVal SubKey As String, _
        ByVal szEntry As String, _
        ByVal Stringa As String) As Boolean
   Dim hkeySub As Long
   Dim rc, dwWhat As Long
   rc = RegCreateKey(key, SubKey, hkeySub)
   If (rc <> ERROR_SUCCESS) Then
      WriteString = False
      Exit Function
   End If
   rc = RegSetValueExString(hkeySub, szEntry, 0, _
        REG_SZ, Stringa, Len(Stringa))
    If (rc <> ERROR_SUCCESS) Then
        WriteString = False
        Exit Function
    End If
   RegCloseKey (hkeySub)
   WriteString = True
End Function
Public Function AssociaFile( _
                    ByVal Estensione As String, _
                    ByVal DescrizioneFile As String, _
                    ByVal pathAppAssociata As String, _
                    ByVal pathIcona As String) As Boolean
Dim PercorsoChiaveSecondaria As String
Dim risultato As Long
AssociaFile = False
PercorsoChiaveSecondaria = Estensione
If (WriteString(HKEY_CLASSES_ROOT, _
         PercorsoChiaveSecondaria, "", DescrizioneFile) = False) Then
        Exit Function
End If
PercorsoChiaveSecondaria = DescrizioneFile & _
            "\DefaultIcon"
If (WriteString(HKEY_CLASSES_ROOT, _
         PercorsoChiaveSecondaria, "", pathIcona) = False) Then Exit
Function
PercorsoChiaveSecondaria = DescrizioneFile & _
        "\shell\open\command"
If (WriteString(HKEY_CLASSES_ROOT, _
         PercorsoChiaveSecondaria, _
         "", pathAppAssociata & " " & Chr(34) & "%1" & Chr(34)) = False)
Then Exit Function
PercorsoChiaveSecondaria = DescrizioneFile
If (WriteString(HKEY_CLASSES_ROOT, _
         PercorsoChiaveSecondaria, "", _
            DescrizioneFile) = False) Then Exit Function
AssociaFile = True
End Function