none
Listar arquivos RRS feed

  • Pergunta

  • Pessoal

    Achei este script abaixo para listar arquivos por extensão (mp3, wma, etc),  mas queria saber se tem como direcionar o resultado para um arquivo.txt na rede. Tem como apontar isso ?


    Sub ListID3Tags(sFolder)
      'get FileSystemObject To enumerate files
      Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
     
      'call ListID3TagsFS Function with a folder object
      ListID3TagsFS FS.GetFolder(sFolder)
    End Sub

    Sub ListID3TagsFS(Root)
      Dim SubFolder, File
     
      'enumerate all files In the folder
      For Each File In Root.Files
        'select only mp3 And wma files
        Select Case LCase(Right(File.Name, 4))
          Case ".mp3", ".jpg": ListID3TagsFile File
        End Select
      Next

      'process all subfolders
      For Each SubFolder In Root.SubFolders
        ListID3TagsFS SubFolder
      Next
    End Sub

    Sub ListID3TagsFile(File)
      'Get id3 object To change data
      Dim id3: Set id3 = CreateObject("CDDBControl.CddbID3Tag")

      'load id3 data from a file, read only
      id3.LoadFromFile File.Path, True
     
      'print some of id3 tags
      WScript.Echo File.Name, id3.Album, id3.Title, id3.LeadArtist
    End Sub


    Obrigado


    Aldiko
    quarta-feira, 20 de maio de 2009 16:48

Respostas

  • Olá,

    Coloque a função abaixo da linha onde está:
    'print some of id3 tags
      WScript.Echo File.Name, id3.Album, id3.Title, id3.LeadArtist
    Coloque:
      geralog File.Name, id3.Album, id3.Title, id3.LeadArtist



    E abaixo de Tudo coloque a sub que está abaixo:


    Sub Geralog(nome,album, titulo, artista)

    strCaminho = "\\servidor\compartilhamento\log.txt"

    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.OpenTextFile(strCaminho, 8, True, 0)
    OutPutFile.WriteLine "Nome da musica: " & nome & " Album: " & album & " Titulo: " & titulo & " Artista: " & artista
    End sub


    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    quarta-feira, 20 de maio de 2009 19:31