Pregunta: | 64987 - ERROR 445 |
Autor: | guillermo arias |
Set fs = Application.FileSearch With fs .LookIn = "C:Program FilesComputers and StructuresSAP2000 14" '.LookIn = "C:" '.FileName = "sap2000.exe" If .Execute > 0 Then '''MsgBox "There were " & .FoundFiles.Count & _ tengo este codigo para abrir una plicacion, pero me un error, por favor me podrian ayudar '''For i = 1 To .FoundFiles.Count 'MsgBox .FoundFiles(1) '''Next i ruta = ThisWorkbook.FullName todo = "C:Program FilesComputers and StructuresSAP2000 14Sap2000.exe " + ruta Shell todo, vbHide Else '''MsgBox "no se encontraron archivos." ruta = ThisWorkbook.FullName todo = "C:Program Files (x86)Computers and StructuresSAP2000 14Sap2000.exe " + ruta Shell todo, vbHide End If |