Code: Alles auswählen
File$ = OpenFileRequester("Datei-Auswählen", "C:\", "*.*", 0 , 0)
If CreatePack("D:\Packer.pak")
AddPackFile(File$)
ClosePack()
EndIf
Code: Alles auswählen
File$ = OpenFileRequester("Datei-Auswählen", "C:\", "*.*", 0 , 0)
If CreatePack("D:\Packer.pak")
AddPackFile(File$)
ClosePack()
EndIf
habe ich auch mal eben getestet. Bei einer 298 MB großen Dateikiki hat geschrieben:Wenn ich folgenden Code ausprobiere klappt das nur bei kleinen Dateien, bei großen wie 300 Mb großen Videodateien geht dass nicht
Da Windows das halbe GB nicht nutzt, wirds für PB auch nicht zur VerfügungKiffi hat geschrieben: Am Speicher kann's eigentlich nicht liegen. Obwohl sich der Code die
gesamte Datei in den Speicher saugt (plus das, was noch zum Packen
verwendet wird), bleibt auf meinem Rechner noch gut ein halbes GB frei.
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End