Pesquisar na Comunidade
Mostrando resultados para as tags ''.vbs''.
Encontrado 2 registros
-
Queria copiar uma pasta de um dispositivo portátil com o sistema WindowsCE (coletor de dados) ou celular (tipo "Computador\Galaxy J5\Card") para o desktop com .vbs ou .bat. Eu tentei com .bat, mas não sei como indicar o caminho. O caminho que mostrado na pasta aparece "Computador\WindowsCE\Storage Card\ExpCont" Por não ter uma letra de unidade (C:. por exemplo) não consigo escrever isso em .bat como .bat é muito limitado, vou tentar .vbs Se tiver uma solução em .vbs ou .bat eu agradeço
-
Olá , sou novo por aqui , estou com um projetinho e estou com uma dificuldade de colocar um script .vbs dentro do .bat Alguem me ajuda ???? Parte do meu código: cadastro.bat : @echo off echo. set /p opcao3= DESEJA EXPORTAR ? (S-SIM / N-NAO): if %opcao3%== s goto:Export else goto :Error if %opcao3%== S goto:Export else goto :Error if %opcao3%== n goto:Buscar else goto :Error if %opcao3%== N goto:Buscar else goto :Error echo. :Export For /f "delims=" %%i in ('Cscript //nologo "script_.vbs" "Selecione uma pasta"') do Set "folder=%%i\%codigoPesq%__RELATORIO.txt" For /f "eol=- delims=" %%i in ('find /I "%codigoPesq%__" Registros') do >>"%folder%" Echo.%%i START %folder% ECHO. ECHO. ECHO. ECHO. ECHO VERIFIQUE O LOCAL [%folder%] ECHO. echo. echo ENTER PARA VOLTAR AO MENU PRINCIPAL script_.vbs: Dim objFolder, objShell Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "Selecione uma pasta.", &H4000, 0) If Not (objFolder Is Nothing) Then wscript.echo objFolder.Self.path Else wscript.echo 0 End If ALGUMA AJUDA ???????????????????? OBRIGADO.