Visual Basic 6 - Aprire File Presente Nella Stessa Cartella Del Programma VB6

Forum - Visual Basic 6 - Aprire File Presente Nella Stessa Cartella Del Programma VB6

Devil_Joker93 (Normal User)
Rookie

Messaggi: 37
Iscritto: 06/11/2009

Postato alle 16:28
Mercoledì, 25/11/2009

Ciao a tutti !

Avrei bisogno che qualcuno mi dica il comando in VB6 che mi faccia aprire un file che è presente nella stessa cartella del programma che ho avviato ? Il file da aprire è un .exe

Grazie a tutti del vostro aiuto !

Ciao

LittleHacker (Member)
Guru

Messaggi: 1033
Iscritto: 28/04/2009

Postato alle 16:38
Mercoledì, 25/11/2009

Testo quotato

Postato originariamente da Devil_Joker93:

Ciao a tutti !

Avrei bisogno che qualcuno mi dica il comando in VB6 che mi faccia aprire un file che è presente nella stessa cartella del programma che ho avviato ? Il file da aprire è un .exe

Grazie a tutti del vostro aiuto !

Ciao

Codice sorgente - presumibilmente Plain Text

SHELL("file.exe")

Devil_Joker93 (Normal User)
Rookie

Messaggi: 37
Iscritto: 06/11/2009

Postato alle 17:23
Mercoledì, 25/11/2009

Ok...ma se io apro il file su un altro pc con una percorso della cartella diverso ?

Io intendevo un comando che mi aprisse il file presente nella stessa cartella del programma senza dover scrivere " Shell ("C:/...."). esiste ? Potrebbe funzionare il comando App.Patch ?

Grazie

LittleHacker (Member)
Guru

Messaggi: 1033
Iscritto: 28/04/2009

Postato alle 17:27
Mercoledì, 25/11/2009

Testo quotato

Postato originariamente da Devil_Joker93:

Ok...ma se io apro il file su un altro pc con una percorso della cartella diverso ?

Io intendevo un comando che mi aprisse il file presente nella stessa cartella del programma senza dover scrivere " Shell ("C:/...."). esiste ? Potrebbe funzionare il comando App.Patch ?

Grazie

1° spiegati meglio...
2° se devi aprire un file presente nella stessa cartella del tuo programma, ti basta solo il nome e l'estensione del file con shell()...

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 17:44
Mercoledì, 25/11/2009

Ciao,
ti posto un esempio per aprire un prog. con percorso sia relativo, sia fisso:

Codice sorgente - presumibilmente VB.NET

Option Explicit
'------------------------------
Private Sub Command1_Click()
    On Error GoTo itrErrTrap
    
    Dim sNomeFile As String
    Dim RetVal As Variant
    
' Prende il Nome del file eseguibile:
    sNomeFile = Text1.Text & ".exe"
    
    RetVal = Shell(App.Path & "\" & sNomeFile, vbNormalFocus)
 
   ' RetVal = Shell("C:\Windows\System32\calc.exe", vbNormalFocus)
 
itrErrTrap:
    If Err > 0 Then MsgBox Err.Description
End Sub

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:39
Mercoledì, 25/11/2009

Testo quotato

Postato originariamente da Devil_Joker93:
Potrebbe funzionare il comando App.Patch?

Si, anche se è app.path non app.patch

Devil_Joker93 (Normal User)
Rookie

Messaggi: 37
Iscritto: 06/11/2009

Postato alle 20:57
Mercoledì, 25/11/2009

Ok, funziona se lo apro sul mio pc perchè il percorso è questo:Shell ("C:/Prova/Prova.exe")
ma se lo apro su un altro pc che il percorso è ("C:/Ciao/Prova.exe") il comando non funziona perchè non trova il percorso "C:/Prova/Prova.exe"

Cioè a seconda di dove si trova la cartella con all' interno programma e file Prova.exe,quando apro il programma e premo il command button mi apra il file .exe presente nella stessa cartella

Ultima modifica effettuata da Devil_Joker93 il 25/11/2009 alle 21:08

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 11:11
Giovedì, 26/11/2009

spiegati meglio...

se l'exe da aprire, si trova nella stessa cartella del tuo exe allora basta fare:

shell(app.path & "\nome.exe")

se si trova in qualche sotto cartella basta usare:

shell(app.path & "\sottocartella\nome.exe")

se si trova in una cartella posta completamente da un'altra parte rispetto al tuo exe temo che tu debba prima cercare dove si trovi l'exe in questione e poi lo esegui. Se cerchi su internet puoi trovare alcuni esempi per la ricerca di file nell'HD anche se questo significherà impiegare un pò di tempo e di CPU...

Devil_Joker93 (Normal User)
Rookie

Messaggi: 37
Iscritto: 06/11/2009

Postato alle 15:15
Giovedì, 26/11/2009

OK !!! Grazie a tutti era:

shell(app.path & "\nome.exe")

Grazie ancora

Ciao