xsi (Normal User)
Newbie
Messaggi: 19
Iscritto: 07/04/2010
|
Buonasera a tutti, mi scuso se è già stato chiesto ma non ho trovato nulla. Sto facendo un programma per poter aprire tramite command button altri programmi che si trovano in sottocartelle e fino a qui tutto bene usando questo codice:
Shell (App.Path & "\---\---.exe")
Il mio problema è invece quando tramite sempre un bottone devo aprire una sottocartella, non riesco a trovare nessun comando che faccia si che posso aprire una sottocartella della cartella in cui si trova l'exe... Potete darmi delucidazioni? Ringrazio in anticipo tutti coloro che mi risponderanno. Se vi chiedete da quanto programmo e meglio se tralasciamo
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
allora, mmm... mi pare si facesse così:
shell "explorer C:\cartella"
|
|
xsi (Normal User)
Newbie
Messaggi: 19
Iscritto: 07/04/2010
|
Postato originariamente da GrG:
allora, mmm... mi pare si facesse così:
shell "explorer C:\cartella" |
Purtroppo mi spiego, questo programma deve passare anche ad altri, quindi se io gli do la posizione precisa C:\ecc... sul pc di un altro potrebbe non corrispondere, quindi io avrei voluto fare come per le gli exe che sono nelle sottocartelle. Non so se mi sono spiegato bene... |
|
Alfonso (Ex-Member)
Guru
Messaggi: 688
Iscritto: 30/09/2009
|
No. Non si capisce quello che vuoi.
Non si capisce cosa intendi con aprire con un button una sottocartella.
Men che meno che ti serva "aprire" una cartella dove risiede un exe (il tuo?).
|
|
xsi (Normal User)
Newbie
Messaggi: 19
Iscritto: 07/04/2010
|
Postato originariamente da Alfonso:
No. Non si capisce quello che vuoi.
Non si capisce cosa intendi con aprire con un button una sottocartella.
Men che meno che ti serva "aprire" una cartella dove risiede un exe (il tuo?). |
Ok cerco di spiegarmi meglio. Io ho una cartella sul desktop con all'interno l'exe e altre cartelle, all'interno delle altre cartelle ho exe in alcune e in altre dei documenti word, exel ecc...
Questo programma mi serve per richiamare gli exe nelle cartelle (e fino a qui ci sono), e per aprire quelle cartelle contenenti i documenti. Qui nasce il problema perchè il programma deve essere distribuito ad altri quindi potrebbero non metterlo nel desktop ma in un'altra cartella e quindi se il comando per aprire gli exe (postato sopra) mi risolve non ho ancora trovato un comando per poter aprire le sotto cartelle senza indicare il percorso preciso. |
|
Alfonso (Ex-Member)
Guru
Messaggi: 688
Iscritto: 30/09/2009
|
Ma se le cartelle che ci sono a valle di quella da cui lanci il tuo programma, le crea il tuo programma o le crea il programma che installa il tuo programma (dietro tuo ordine), tu le conosci e puoi dunque indicarle ai programmi.
Se non le conosci (perchè create successivamente dall'utente) dovrai leggerle, caricare una lista e proporre la lista all'utente perchè scelga quella che gli serve.
Altrimenti:
Immagino che tu abbia il tuo programma sul desktop e la prima cartella che serve al programma sempre sul desktop.
Per cui con App.path & "\---\---.exe" tutto ti funziona.
Nel caso l'utente installi tutto in c:\programmi\Cartella\tuoProgramma.exe e in questa cartella ci sia la tua prima cartella, sarà sempre App.path & "\---\---.exe"
Ciao
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
ho capito, basta che usi:
shell "explorer " & app.path & "\nome_sottocartella"
|
|
xsi (Normal User)
Newbie
Messaggi: 19
Iscritto: 07/04/2010
|
Postato originariamente da GrG:
ho capito, basta che usi:
shell "explorer " & app.path & "\nome_sottocartella" |
Grazie mille proprio questo, molto gentile. Ho terminato il programma Grazie ancora |
|
xsi (Normal User)
Newbie
Messaggi: 19
Iscritto: 07/04/2010
|
Purtroppo mi sorge un altro problema, vorrei fare aprire una finestra per sfogliare e aprire qualsiasi tipo di file... solo che non riesco a capire come fare, ho provato a cercare in internet ma non ho trovato nulla se non questo:
Codice sorgente - presumibilmente Visual Basic 6 |
Dim ofn As OPENFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Form1.hWnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "Rich Text Files (*.rtf)" + Chr$(0) + "*.rtf" + Chr$(0)
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = "c:\"
ofn.lpstrTitle = "Seleziona un file da aprire"
ofn.flags = 0
Dim a
a = GetOpenFileName(ofn)
If (a) Then
MsgBox "File aperto: " + Trim$(ofn.lpstrFile)
End If
End Sub
|
Qualcuno sa come riuscire nella mia impresa? Oppure non è possibile farlo?
|
|