Newsgroup: it.comp.aiuto
Titolo: Ricerca utility

Sono alla ricerca di un' utility free che mi permetta di stampare e/o 
salvare su disco il contenuto di una directory ,ma NON  limitatamente al 
solo il nome dei files in essa contenuti e vari attributi degli stessi (per 
questo ho già la buona "Karen's directory printer") ma che, nel caso di 
files musicali, mi permetta di stampare  anche "Artista", "anno", "Titolo 
dell'album" ecc. che con XP si possono associare selettivamente ai files.
Sarò grato a chiunque potrà comunicarmi il nome di qualche programmino 
adatto.
Un saluto a tutti
Albert 

 adatto.
http://www.rogepost.com/n/1317866305
--
Fosco

 
http://www.rogepost.com/n/1317866305
Ringrazio Fosco per il suggerimento.
Ho scaricato il file zippato che contiene tre files.
Tutti e tre sono "Drag and drops scripts".
Perdona la mia ignoranza ma come li posso usare?
Attendo tue notizie
Grazie ancora e ciao
Albert 

 "Albert1"
rivisto e corretto uno dei script .. l'output (mp3.log) e' direttamente stampabile
(se ti interessa e non riesci a copiarlo [1] lo metto su un upload)
Option Explicit
'Const ForReading
Dim MyString(127)
Dim oFile
Dim sStartFolder
Dim strNewName
Dim sBuffer
Dim MPfile
Dim strArtist
Dim strSong
Dim dstFolder
Dim sBaseMP3
Dim Fso
Dim oFolder
Dim i
Dim x
Dim c
Dim title
Dim Artist
Dim Album
Dim albumyear
dim comment
Dim genre
Dim DoThing
Dim Flog
Dim retFname
Dim retFileName
Dim retFldr
Dim strTempName
Dim Count : Count = 0
Dim WshShell
 set WshShell = WScript.CreateObject("WScript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
sBaseMP3 = "C:\WINDOWS\TEMP"
sStartFolder = inputbox("Type anything in the box and click OK.", "","C:\WINDOWS\TEMP\Dire Straits\")
' [1]
' L'UNICO problema potrebbe essere la riga sopra che deve
' essere SOLO su una riga da sStartFolder = **  a  *** \Dire Straits\")
Set oFolder = Fso.GetFolder(sStartFolder)
For each oFile in oFolder.Files
If ucase(Right(oFile.name, 4)) = ".MP3" then
Call GetMP3(oFile)
Count = Count + 1
End if
Next
Msgbox Count & " " & "Files have been processed"
'Msgbox sStartFolder & "mp3.log"
WshShell.run "Notepad.exe " & sStartFolder & "mp3.log"
Sub GetMP3(string)
Dim Seperator, Songlength
DoThing = False
Set MpFile = Fso.OpenTextFile(String, 1, False, 0)
sBuffer = MpFile.ReadAll
For i = 0 To 124
MyString(i) = Chr(Asc(right(sBuffer, i + 1)))
Next
For x = 0 To 124
c = 124 - x
If c > 94 and c <= 127 Then title = title & mystring(c)
If c > 64 and c <= 94 Then artist = artist & mystring(c)
'If you want to use the information below then uncomment it.
 If c > 34 and c <= 64 Then album = album & mystring(c)
 If c > 30 and c <= 34 Then albumyear = albumyear & mystring(c)
 If c > 0 and c <= 30 Then comment = comment & mystring(c)
 If c = 0 then genre = mystring(c)
Next
MPFile.close
strArtist = Replace(Artist, Chr(0), "")
strArtist = Replace(strArtist,"."," ")
strArtist = Replace(strArtist,"(","")
strArtist = Replace(strArtist,")","")
strArtist = Replace(strArtist,"[","")
strArtist = Replace(strArtist,"]","")
strArtist = Replace(strArtist,"!","")
strArtist = Replace(strArtist,"/","_")
strArtist = Replace(strArtist,"\","_")
strArtist = trim(strArtist)
strSong = Replace(title, Chr(0), "")
strSong = Replace(strSong,"[","(")
strSong = Replace(strSong,"]",")")
strSong = Replace(strSong,"/","_")
strSong = Replace(strSong,"\","_")
strSong = trim(strSong)
WriteToLog("Original name" & vbtab & oFile.Name)
WriteToLog("Artist" & vbTab & vbtab & strArtist)
WriteToLog("Title" & vbTab & vbTab & strSong)
'WriteToLog("New name" & vbTab & vbtab & strNewName)
WriteToLog("album" & vbTab & vbTab & album)
WriteToLog("albumyear" & vbTab & vbTab & albumyear)
WriteToLog("comment" & vbTab & vbTab & comment)
WriteToLog("genre" & vbTab & vbTab & genre)
WriteToLog("")
On Error Resume Next
If not Fso.FolderExists(sBaseMP3 & "\" & strArtist) then
dstFolder = Fso.CreateFolder(sBaseMP3 & "\" & strArtist)
Else
dstFolder = sBaseMP3 & "\" & strArtist
End if
'This error checking might not be needed.
If Err.Number > 0 then
Dothing = False
Msgbox err.number & vbtab & 
ofile.name
End if
On Error goto 0
If not Fso.FileExists(dstFolder & "\" & strNewName) Then
'Fso.MoveFile oFile.Path, dstFolder & "\" & strNewName
Else
'DO SOME TYPE OF LOOP HERE.  POSSIBLE SUB CALL
'TO RENAME FILE AS NEEDED ADDING TO THE (1).
'right now this will fail if a file is already named (1)strnewname.
Fso.MoveFile oFile.Path, dstFolder & "\" & "(1)" & strNewName
End If
'Clean up
Set MpFile = Nothing
MyString(i) = ""
sBuffer = ""
Title = ""
Artist = ""
strNewName = ""
strArtist = ""
strSong = ""
'album = ""
'albumyear = ""
'comment = ""
'genre = ""
End Sub
Sub WriteToLog(string)
    If not Fso.FileExists(sStartFolder & "MP3.Log") Then
Set fLog = Fso.CreateTextFile(sStartFolder & "mp3.log", TRUE)
        fLog.Close
    End if
    Set fLog = Fso.OpenTextFile(sStartFolder & "mp3.log", 8)
    fLog.WriteLine(string)
    fLog.Close
End Sub
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus

 Perdona la mia ignoranza ma come li posso usare?
Ti ho messo un vbs modificato qui
http://www.rogepost.com/n/1470473551
lo puoi adoperare direttamente cliccandoci sopra
l'unica cosa che devi fare e' metterci la path della
cartella dei *mp3  >> per esempio  C:\Enigma
L'outout stampabile sara' +o- acsi :
Original name 01_The Landing.mp3
Artist  Enigma
Title  The Landing
album  LSD - The Greatest Hits
albumyear  2001
comment                                
genre
Original name 05_Modern Crusaders.mp3
Artist  Enigma
Title  Modern Crusaders
album  LSD - The Greatest Hits
albumyear  2001
comment                                
genre
--
Fosco

 
http://www.rogepost.com/n/1470473551
Se si ha Internet Explorer 7 potrebbe non funzionare
Comunque se cerchi su guuugle ne trovi a bizzeffe di programmi
--
Fosco

Grazie mille!
Ti sono molto grato.
Mi hai tra l'altro fatto scoprire un'ennesima entusiasmante "nicchia" 
dell'informatica
Ciao
Albert 

 dell'informatica
Se ti piace e ti intriga ti conviene imparare direttamente
qualcosa di piu evoluto , la difficolta e' +o- la stessa
http://www.autoitscript.com/autoit3/
http://www.autoitscript.com/forum/index.php
fai il conto che in un semplice linguaggio di scripting
hai le stesse potenzialita di un programma piu evoluto come il VB6
--
Fosco