FileCopy / Installation

Dustmaster80

Hi Leute!!!

Bin gerade auf dieses Forum gestoßen und bin echt begeistert Ein dickes Lob von mir an euch!!!
Ich bin zwar schon ne ganze Weile mit AutoIt dabei aber ich hätte da trotzdem eine Frage.
Ich möchte mit Hilfe eines Scripts eine relative große Datei (400MB) von CD auf die Platte kopieren. Das Script sollte während dieses Vorgangs pausieren. Wenn ich nun mit "FileExists" die Abfrage mache ob die Datei existiert wird True zurück gegeben auch wenn sie noch nicht vollständig kopiert ist. Hat da jemand eine Lösung dafür?
Eine Lösung wäre ja die Abfrage der Dateigröße aber die kann sich im laufe der Zeit ändern und die Dateigröße jedesmal im Script ändern wollte ich eigentlich nicht.
Ich wäre über jede Hilfe dankbar!

Gruß, Steff

pastl

Hallo Dustmuster80,

willkommen hier im Forum.

So nun zu deiner Frage:

Du könntest FileExist mit FileGetSize verwenden.

wolkenloser

Hi,

Das Problem beim kopieren großer Dateien ist, daß direkt am Anfang eine Datei im Ziel erzeugt wird die sowohl den Namen der Quelldatei als auch die Größe hat, D.h. mit FileGetSize kommst Du nicht weiter, das hatte ich auch schon.

Pastl hatte aber mal eine Variation mit dem bekannten Windows-Fortschrittsbalken in einem Anderen Forum gepostet. Das funktioniert sowohl mit einer Datei, als auch mit einem ganzen Ordner

Es gibt auch noch diverese andere Funktionen mit Fortschrittsbalken, aber bei so Großen Files hast Du immer das Problem übere einen langen Zeitraum nicht zu sehen ob noch was passiert. Das ist hier nicht so
Schau Dir das mal an:

Code

_FileCopy()


;------------------------------------------------------
; Funktion zum Kopieren von Files mit einer ProcessBar:
;------------------------------------------------------
Func _FileCopy()


;*************************
;$VBSsrcfile = "Quelldatei"
;$VBSdest = "Ziel"
;*************************


Dim $message, $VBSsrcfile, $VBSdest, $i, $Files


$message = 'Wählen Sie den Quellpfad aus.'


;~ $VBSsrcfile = FileSelectFolder('Wählen Sie den Quellpfad aus.', @DesktopDir, 1+2+4);Verzeichnisauswahl
$VBSsrcfile = FileOpenDialog('Wählen Sie die Queldatei aus.', @DesktopDir, "(*.*)");Dateiauswahl






$VBSdest = FileSelectFolder("Zielpfad auswählen...", "", 1+2+4)


$Files = StringSplit($VBSsrcfile, "|")


If $Files[0] == 1 Then
$VBSscriptfile = @tempdir & "\vbsfilecopy.vbs"
$VBSfilecopy = 'dim oSh' &@Lf& 'dim oFld' &@Lf& 'set oSh = CreateObject("Shell.Application")' & _
    @LF & 'set oFld = oSh.NameSpace("' & $VBSdest & '")' &@Lf& _
    'if not oFld is nothing then' &@Lf& 'oFld.CopyHere("' & $VBSsrcfile & _
    '")' &@Lf& 'end if' &@Lf& 'set oSh = nothing' &@Lf& 'set oFld = nothing'
FileDelete($VBSscriptfile)
FileWrite($VBSscriptfile,$VBSfilecopy)
RunWait(@systemdir & '\wscript.exe "' & $VBSscriptfile & '"')
Else
For $i = 2 To $Files[0] 
 $VBSscriptfile = @tempdir & "\vbsfilecopy.vbs"
 $VBSfilecopy = 'dim oSh' &@Lf& 'dim oFld' &@Lf& 'set oSh = CreateObject("Shell.Application")' & _
     @LF & 'set oFld = oSh.NameSpace("' & $VBSdest & '")' &@Lf& _
     'if not oFld is nothing then' &@Lf& 'oFld.CopyHere("' & $Files[1] & "" & $Files[$i] & _
     '")' &@Lf& 'end if' &@Lf& 'set oSh = nothing' &@Lf& 'set oFld = nothing'
 FileDelete($VBSscriptfile)
 FileWrite($VBSscriptfile,$VBSfilecopy)
 RunWait(@systemdir & '\wscript.exe "' & $VBSscriptfile & '"')
Next
EndIf


EndFunc

Alles anzeigen

pastl

Ach ja, hatte ich vergessen. Danke wolke, das du mich darauf aufmerksam gemacht hast.

Dustmaster80

Halli Hallo!!

Man, das Skript ist ja echt genial! Vielen Dank!
Ich hab mich nie großartig mit VB-Skripten beschäftigt aber das scheint ja echt nicht schlecht zu sein.
Wisst ihr zufällig eine Seite im Netz wo man da was drüber lernen kann? Die Syntax ist soweit kein Problem, da ich Visual Basic eigentlich ganz gut kann. Was mich interessieren würde wären einige Objekte und Funktionen.
Hoffe mein Beitrag ist nicht zu weit weg vom Thema AutoIt?!

Gruß, Steff