Para tornar os seus arquivos PHP executaveis no Windows, ou seja, fazer com que eles "abram" sem a necessidade de chamar o php.exe, faca o seguinte:Abra o prompt de comando (cmd.exe) como Administrador (suponho que saiba fazer isso);Execute o comando interno do cmd.exe FTYPE da seguinte forma: FTYPE PHPfile="c:\php\php.exe" "%1" "%*" onde "c:\php\php.exe" e o local de instalacao do PHP.Execute o comando interno do cmd.exe ASSOC .php=PHPfilePronto! Agora, basta voce digitar o nome do seu script PHP no promtp do cmd.exe que ele sera executado.Sempre lembrando: esta dica se aplica a scripts PHP escritos para rodar no modo CLI do PHP.Voce pode ainda aperfeicoar a execucao acrescentando a extensao do PHP na variavel %PATHEXT% do cmd.exe, desta forma: SETX PATHEXT %PATHEXT%;.PHPApos, reinicie o cmd.exe.Assim, voce nao precisara digitar a extensao .php para executar o arquivo.Se voce quiser executar os arquivos PHP no modo CLI com um php.ini personalizado, utilize o FTYPE da seguinte forma: FTYPE PHPfile="c:\php\php.exe -c c:\php\php-cli.ini" "%1" "%*"onde c:\php\php-cli.ini e o caminho para o seu php.ini personalizado.Isso e util para, por exemplo, retirar as tags HTML das mensagens de erro do PHP, que no modo CLI nao fazem sentido existir (alterando a diretiva html_errors do php.ini)Com isso, voce pode utilizar o PHP como linguagem de scripting no Windows. 'Lista os arquivos de determinado diretorio'http://www.tomasvasquez.com.br/blog/microsoft-office/vba-listar-arquivos-de-um-diretorioPublic Function ListaArquivos(ByVal Caminho As String) As String()Dim FSO As New FileSystemObjectDim arquivos() As StringDim Pasta As FolderDim Arquivo As FileDim Indice As LongReDim arquivos(0) As StringIf FSO.FolderExists(Caminho) Then Set Pasta = FSO.GetFolder(Caminho) For Each Arquivo In Pasta.Files Indice = IIf(arquivos(0) = "", 0, Indice + 1) ReDim Preserve arquivos(Indice) As String arquivos(Indice) = Arquivo.Name NextEnd IfListaArquivos = arquivosSet FSO = NothingSet Pasta = NothingSet Arquivo = NothingEnd FunctionPara testar:Private Sub btnProcurar_Click()'testa listagem dos arquivosDim arquivos() As StringDim lCtr As Longarquivos = Utilitarios.ListaArquivos(Utilitarios.AbrirSeletorDiretorio)For lCtr = 0 To UBound(arquivos) MsgBox arquivos(lCtr)NextEnd SubImportante: Faca referencia a biblioteca Micrsoft Scripting Runtime para ter acesso aos objetos da File System Object (FSO), necessarios para execucao do exemplo. Coisas que acontecem fora do picadeiro! De volta ao blog abandonado! Sem muitas novidades, ando treinando muita arte marcial e sem tempo pra criar material novo pra publicar por aqui! Remexendo no bau de velharias encontrei o Flink, gato safado que criei quando tinha uns 16 anos, ao melhor estilo de ''Fritz the Cat''! Nesse momento valeria mais uma ma garrafa, um papel A4 e uma caneta! Tira da serie que entitulei de Mundinho Digital! Tudo sobre redes sociais, selfie, internete, e esses trequinhos que todo mundo adora usar pra se desplugar do mundo real enfiar mais ainda a cara nesse infinito oceano de bobagens e de bits. Cid moreira e, de fato, um dos nomes mais respeitados no jornalismo brasileiro. No entanto, depois de tantas glorias e conquistas, ainda e capaz de orientar sobre o verdadeiro significado das coisas desse mundo. Vejam o que ele proprio declarou em sua biografia:Sou uma pessoa de credibilidade em meu trabalho, que teve muitas coisas que muitos poderiam chamar de sucesso. Era reconhecido por um pais inteiro, onde quer que eu fosse, tive relacionamentos amorosos com muitas