Olá Aparecido,
Realizei o teste com esse script, funcionou muito bem, porém encontrei outra dificuldade.
Adicionei uma verificação ao Script para ver se existem arquivos dentro da minha pasta, se não houver ele executa uma propaganda programada, segue:
Set oShell = CreateObject("Wscript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDiretorioTXT = "C:\arquivos_txt"
sDiretorioAVI = "C:\videos\"
sDiretorioBackup = "C:\teste\123.avi"
Set oFolderTXT = oFSO.GetFolder(sDiretorioTXT)
Set sfilesTXT = oFolderTXT.Files
If (oFSO.FileExists(sDiretorioTXT)) Then
WScript.Echo("Entrei")
Else
WScript.Echo("Sem propaganda para executar no momento, executando propaganda programada")
oShell.run sDiretorioBackup, 1, true
End If
For each sTXT In sfilesTXT
'*** Verifica se os arquivos que existem na pasta são com extensão TXT
If oFSO.GetExtensionName(sTXT) = "txt" Then
'*** Se houver arquivos TXT, executa a rotina para rodar o video
ExecutaVideo(Replace(sTXT.Name,"txt","avi"))
End IF
Next
Sub ExecutaVideo(sFileAVI)
video_name = sDiretorioAVI & sFileAVI
'*** Verifica se o arquivo AVI existe, senão apresenta erro
If oFSO.FileExists(video_name) Then
wscript.echo "Diretótio TXT: " & sDiretorioTXT & Chr(13) & "Video: " & video_name
oShell.run video_name, 1, true
Else
wscript.echo "O [" & sFileAVI & "] não existe no diretorio " & sDiretorioAVI
End IF
End Sub
A verificação funcionou, mas logo após a execução do video ele para o script (mesmo sem a verificação), pensei em tentar algo assim:
verifica pasta > sem arquivos? > executa prop. prog. > verifica pasta > chegou arquivo? > executa propaganda.
Tudo isso constantemente, porém tenho uma duvida, se eu tiver esse mesmo arquivo na minha pasta eu precisaria "filtrar" o arquivo após a execução da propaganda, pois se continuar ali o arquivo a propaganda pode ficar no loop infinito só daquele
arquivo, pensei em algo assim:
verifica pasta > sem arquivos? > executa prop. prog. > verifica pasta > chegou arquivo? > executa propaganda e filtra o arquivo (deleta ou move para uma outra pasta ex: ("c\history\")) > executou propaganda? > verifica pasta
> ......
Teria como fazer algo assim com esse tipo de linguagem?
Estou começando na área de infraestrutura onde eu trabalho e estou gostando muito, porém ainda desconheço muitas coisas que da pra fazer com .bat, .sh, .vbs ... Se puder continuar me ajudando agradeço, pessoal da faculdade fica desmerecendo essas linguagens,
quero mostrar pra eles que da pra fazer tudo por aqui kkkk
Obrigado!
