none
Alguém pode me ajudar com isso em VBscript. RRS feed

  • Pergunta

  • Alguem pode me ajudar com esse programa:     Elaborar um Windows Script File que exiba o tamanho e data da última alteração de um arquivo cujo nome foi informado pelo usuário por input box, em um message box.

    domingo, 27 de novembro de 2016 17:48

Todas as Respostas

  • On Error Resume Next
     
    set objWShell = WScript.CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
     
     strMenu="Informe o nome ou caminho /nome:"
     strDestFolder = InputBox(strMenu,"Propriedades de um arquivo","C:\")
     
    if CBool(Not objFSO.FileExists(strDestFolder)) then
    	WScript.Echo "Arquivo nao encontrado"
    	WScript.Quit
    end if
     
    Set objFile = objFSO.GetFile(strDestFolder)
    
    strMensagem = "Arquivo: " & strDestFolder & VbCrLf &_
    " Data ultima modificacao: " & objFile.DateLastModified & VbCrLf &_
    " Tamanho: " & objFile.Size
    
    Wscript.Echo strMensagem

    • Sugerido como Resposta Carlos_rodrigues terça-feira, 14 de março de 2017 18:25
    domingo, 27 de novembro de 2016 20:13