Se la tua intenzione è di utilizzare una finestra di dialogo, allora suggerirei la Classe Dialog:
Public Sub Form_Open()
Dim percorso As String
With Dialog
.Filter = ["*.mid", "File Midi"]
.Title = "Apri un file Midi..."
If .OpenFile() Then Return
percorso = .Path
End With
Print percorso
Print "Il nome del file è: "; File.Name(percorso)
End
Public Sub Form_Open()
Dim percorso As String
With Dialog
.Filter = ["*.mid", "File Midi"]
.Title = "Apri un file Midi..."
If .OpenFile() Then Return
percorso = .Path
End With
Print percorso
Print "Il nome del file è: "; File.Name(percorso)
End
per farlo funzionare ho dovuto modificarlo così:
With Dialog
.Filter = ["*.wad", "File Wad"]
.Title = "Carica Wad Personalizzato"
If .OpenFile() Then Return
percorso = .Path
End With
sWad = "-iwad " & percorso
Label1.Text = percorso
Label1.Tooltip = "Launch" & percorso
End
Non sono riuscito invece ad usare File.Name in nessuno modo, da come ho interpretato il codice fornitami da te, dovrebbe mostrare solo il path mentre il nome del file.
allora pensavo, nel mio caso, la variabile avrei dovuta dichiaralra così:
sWad = "-iwad " & percorso & File.Name
Vediamo di seguito i tre metodi della Classe "File" che operano sul percorso di un file:
Print File.Dir(percorso)
Print File.BaseName(percorso)
Print File.Ext(percorso)