
Private Sub CommandButton70_Click() Shell "explorer.exe G:P304OSBuildingGestione_KABAdocumento.pdf", vbNormalFocus End Sub |
Sub Prova()
Dim ind
Dim fs, f, fp, fd s
Set fs = CreateObject("Scripting.FileSystemObject")
ind = ActiveWorkbook.Path
Set f = fs.GetFolder(ind)
Set fp = f.parentfolder '(equivalente di .. salire di un livello)
Set fd = fs.GetFolder(fp.Path & "BuildingGestione_KABA") 'spostamento nella directory che mi interessa
Shell "explorer.exe " & fd.path & "documento.pdf", vbNormalFocus
End Sub
|
