vba.FileSystem.ChDrive "c"
vba.FileSystem.ChDir "C:\Program Files"
ShellExecute ...
Public Function GetPath(ByVal strFullPath As String) As String
Dim intPos As Integer
intPos = InStrRev(strFullPath, Chr$(92))
If intPos > 0 Then
GetPath = Left$(strFullPath, intPos)
End If
End Function
BV писал(а):Друзья, а не посмотреть бы вам повнимательнее на параметры в ShellExecute?
Сейчас этот форум просматривают: AhrefsBot, Google-бот, Yandex-бот и гости: 47