Newsgroup: it.comp.os.win.xp
Titolo: Ma c'è un modo...

....per inserire durante lo spostamento di files
da un pc all'altro non i minuti stimati, ma i kb mancanti
o trasferiti ? un pò come fisse un download ?
Un programmino, o quant' altro ?
--
Lallo©

 Un programmino, o quant' altro ?
Prova a vedere questo  NON ho il tempo di testarlo
ma mi pare di aver visto sul web vari parametri impostabili
e magari anche quello che cerchi
' cerca l'alternativa (se c'e') a FOF_SIMPLEPROGRESS
http://www.google.it/search?hl=it&q=FOF_SIMPLEPROGRESS&meta=
http://www.google.it/search?hl=it&q=.copyhere&meta=
http://snipurl.com/k4id
' ad una scorsa veloce non sembra esserci ma se hai un po'
' di ingegno puoi crearti la funzione da solo [1]
Const FOF_SIMPLEPROGRESS = 256 '(&H100)
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = WScript.CreateObject("Shell.Application")
Destination="c:\windows\temp"  : source="c:\test\*.*"
    Set DFldr = oShell.NameSpace(Destination)
    On Error Resume Next
    DFldr.CopyHere source, FOF_SIMPLEPROGRESS
    If Err.Number = -
2147023673
 then
      err.Clear
      'fso.DeleteFolder(DestFolder(i)),true
    MsgBox "not be copied."
      WScript.Quit
    Elseif Err.Number<>0 then
      err.Clear
      MsgBox "Unknown error, it is: " & Err.Number
      WScript.Quit
    End If
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Copy.vbs)
'se ti da' errore disattiva l'antivirus
[1] 
http://www.google.it/search?hl=it&q=progressbar&meta=
--
Fosco

 Un programmino, o quant' altro ?
Total Commander

 ' di ingegno puoi crearti la funzione da solo [1]
Questo conta i file me penso sia adattabile
Progress Bar Component - JSProgBr.exe
_______________________________________________________
  This is a simple progess bar component for scripting. It's an ActiveX EXE.
www.jsware.net
'ecco 1 esempio di come fare una progress bar senza elementi esterni
'(sempre VBS)
' 1
Dim oIE, oScreen, oPgCtl, h, w, i
Set oIE = CreateObject ("InternetExplorer.Application")
With oIE
   .menubar = 0    : .toolbar = 0
   .statusbar = 0  : .resizable = 0
   .navigate "about:<title>Progress</title><object " & _
        "classid=""clsid:35053A22-8589-11D1-B16A-00C0F0283628"" " & _
         "id=""PrgBar"" height=""20"" width=""500"">"
    While .busy : WScript.sleep 10 : Wend
    Set oScreen = .document.parentwindow.screen
    h = oScreen.availheight
    w = oScreen.availwidth
    .height = h/8 : .width = 3* (w/4)
    .top = h/10 : .left = w/10
    Set oPgCtl  = .document.applets("PrgBar")
    .visible = true
End With
With oPgCtl
   .min = 0
   .max = 250
   .appearance = 0 'OR 1
   .borderstyle = 0 'OR 1
   For i=.min to .max
     .value=CSng(i)
     Wscript.sleep 10
   Next
   MsgBox "Maximum reached: " &  .value
End With
oIE.quit
--
Fosco


...Grazie Mille Fosco, Sei Gentilissimo...
..a buon rendere...
--
LalloŠ 

 ..a buon rendere...
Grazie .. se hai problemi sono qua
--
Fosco

"Fosco"
NON e' facilissimo da implementare me se ti appassiona
e vuoi provarci ... ecco l'help  Script56.chm (poco sopra 1 mega)
Io comicierei a vedere  >>>>>< Size property
che poi implemeterai nella ProgressBar al posto del file
count (o quello che e')
Come detto NON e' semplice e magari fai prima a trovare gia'
qualcosa di pronto
http://www.google.it/search?hl=it&q=progressbar%2Bfile+size&meta=
ecco qua un esempio in Visual Basic ....
http://www.masterdrive.it/default.asp?modulo=Leggi&contenuto_id=919
non c'entra niente ma si puo' prendere lo spunto sopratutto da questa funzione
che e' FSO e si puo' implementare anche in uno script vbs :
       'Scrive i files delle SubCartelle:
       If bytesScritti < lgnFile1Pr Then
            fso.CopyFile (strpath & strAppoggio & "\" & strNomeFile), (strpathD & strAppoggio & "\" & strNomeFile), True
            'Legge i bytes del file copiato:
            Set dFile = fso.GetFile(strpathD & strAppoggio & "\" & strNomeFile)
            btFile = dFile.Size
            'Tiene conto dei bytes copiati e si ferma al totale dei bytes della cartella:
ecc
--
Fosco

 e vuoi provarci ... ecco l'help  Script56.chm (poco sopra 1 mega)
OPPPPPS
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
snip :  
http://tinyurl.com/gcu
http://www.google.it/search?hl=it&q=progressbar%2Bfile+size&btnG=Cerca+con+Google&meta=
snip  :  
http://tinyurl.com/acxvx
--
Fosco