Autor |
Nachricht |
E-P-S
Forumkenner
Anmeldung: 21.04.2005
Beiträge: 125
|
|
Hmmm.... sehr merkwürdig.
Sieht so aus als ob er das nicht mitbekommt das das fenster schon wieder geschlossen ist.
Will heißen deine Kiste ist zu schnell bzw die zu Kopierenden Dateien zu klein.
Probier mal "normale" Dateien, sprich MP3 von 3MB oder so.
Das ist die einzige Erklärung die ich dazu habe.
|
|
|
|
|
|
|
|
|
Muhagglschorsch
Manchmalposter
Alter: 39
Anmeldung: 23.01.2006
Beiträge: 94
Wohnort: München
1994 Ford Fiesta
|
|
meine idee wäre die folgende: leg am ANFANG vom kopierprozess ne datei an "copyinprogress.tmp" und lösch sie am ende wieder.
achja und ne idee für nen fortschrittsbalken wäre diese hier:
starte nich einmal den befehl copy h:\*.* D:\docs\musik\mp3in\ sondern starte für jede datei nen einzelnen copy befehl.. damit könntest du immerhin ein "datei 1 von 1337"-anzeigesystem realisieren UND du könntest überprüfen, ob die datei schon existiert.
/Jan
achja btw: das (c) bekomm ich mit reshack nich raus, schon probiert.
|
|
|
|
|
|
|
|
E-P-S
Forumkenner
Anmeldung: 21.04.2005
Beiträge: 125
|
|
Zitat:
|
das (c) bekomm ich mit reshack nich raus, schon probiert.
|
Dann kann ich das in der nächsten Build wieder rausnehmen.
Mit dem kopieren hab ich es mir recht einfach gemacht.
Der hockt sich einfach auf die shell und startet einen xcopy-befehl (erweiterer copy)
Das Problem ist, das der Shell-Befehl by VB6 asynchron läuft.
Will heißen das das Programm weiterläuft obwohl der Copy-Job noch nicht beendet ist.
Das war halt am Anfang des Projekts das schnellste+einfachste.
Dadurch war das Proggi ja auch extrem klein.
Mittlerweile nimmt das ja schon MS-Word Größe
Hat jemand eine Rekursiv-Funktion inkl. Sub-Dirs?
Dann muss ich das nochmal ändern...
Aber normalen Dateien geht das, oder?
P.S. hab das Warten auf Copy-Job Ende so gelöst:
Code:
|
If IsFolder(Ziel) = False Then MkDir SplitPathFromFile(Ziel)
If Subdirs = False Then
Copystring = "cmd /ccopy " + Quote(Quelle) + " " + Quote(Ziel) + " /Y /V"
Else
Copystring = "cmd /cxcopy " + Quote(Quelle) + " " + Quote(Ziel) + "/S /Y /V"
End If
CopyID = Shell(Copystring)
'MsgBox ("Copy läuft")
'Do
Do Until GetProcID("C:\WINDOWS\system32\cmd.exe") = CopyID
DoEvents
Loop
Do Until GetProcID("C:\WINDOWS\system32\cmd.exe") <> CopyID
DoEvents
Loop
|
|
|
|
|
|
|
|
|
Muhagglschorsch
Manchmalposter
Alter: 39
Anmeldung: 23.01.2006
Beiträge: 94
Wohnort: München
1994 Ford Fiesta
|
|
halt, ich hab den fehler gefunden..
mein windows ist auf e:\ installiert
|
|
|
|
|
|
|
|
Vicious
Frischfleisch
Alter: 38
Anmeldung: 12.01.2006
Beiträge: 14
Wohnort: Pforzheim
|
|
Muhagglschorsch hat folgendes geschrieben:
|
halt, ich hab den fehler gefunden..
mein windows ist auf e:\ installiert
|
WTF? Wie das denn
|
|
|
|
|
|
|
|
Muhagglschorsch
Manchmalposter
Alter: 39
Anmeldung: 23.01.2006
Beiträge: 94
Wohnort: München
1994 Ford Fiesta
|
|
Vicious hat folgendes geschrieben:
|
Muhagglschorsch hat folgendes geschrieben:
|
halt, ich hab den fehler gefunden..
mein windows ist auf e:\ installiert
|
WTF? Wie das denn
|
des is easy einfach beim installieren die 3. partition auswählen.
schon isses e:
|
|
|
|
|
|
|
|
|
E-P-S
Forumkenner
Anmeldung: 21.04.2005
Beiträge: 125
|
|
Sourcecode
wäre schön wenn jemand Änderungen macht, die auch der Allgemeinheit mitteilt.
|
|
|
|
|
|
|
|
chrisator
Inputsammler
Alter: 38
Anmeldung: 22.06.2007
Beiträge: 30
Wohnort: Eschborn
2000 Skoda Octavia
|
|
Könnte jemand das ganze noch mal zum DL bereitstellen.
Da ja jetzt der Winter kommt und man wieder mehr zeit hat will ich mich mal wieder mit VB beschäftigen .
danke im Voraus
|
|
|
|
|
|
|
|
E-P-S
Forumkenner
Anmeldung: 21.04.2005
Beiträge: 125
|
|
|
|
chrisator
Inputsammler
Alter: 38
Anmeldung: 22.06.2007
Beiträge: 30
Wohnort: Eschborn
2000 Skoda Octavia
|
|
Vielen Dank und wenn ich was neues brauchbares habe dann schreibe ich das hier natürlich.
Aber erstmal wieder in VB reinfriemeln...schon ewig net mehr gemacht.
|
|
|
|
|
|
|
|
spooky.de
Manchmalposter
Alter: 54
Anmeldung: 09.02.2006
Beiträge: 54
Wohnort: Mönchengladbach
2005 Citroen Berlingo
|
|
Hardware: Dell SX 270; P4 2,4 GHz; 1 Gig Speicher; 8" TS TFT; Software: cPos, Navibook 2
|
|
|
|
|
KalleMinogue
Fingerwundschreiber
Alter: 44
Anmeldung: 22.02.2007
Beiträge: 532
Wohnort: Bruchlyn
|
|
Könnte jemand das Programm nochmal hochladen?
Danke!
Gruß Kalle
|
|
|
|
|
|
|
|
E-P-S
Forumkenner
Anmeldung: 21.04.2005
Beiträge: 125
|
|
|
|
KalleMinogue
Fingerwundschreiber
Alter: 44
Anmeldung: 22.02.2007
Beiträge: 532
Wohnort: Bruchlyn
|
|
Super Vielen Dank
Gruß Kalle
|
|
|
|
|
|
|
|
Anti_
Forumkenner
Alter: 48
Anmeldung: 18.05.2006
Beiträge: 180
|
|
Hmm wieso so kompliziert ne batch tuts doch auch
Code:
|
@echo off
cls
loop1:
if exists d:\stickid.txt goto startcopy
rem * hier sollte noch ein pausebefehl hin *
goto loop1:
startcopy:
robocopy "d:\mp3" "C:\mp3\Stick" /mir
loop2:
if not exists d:\stickid.txt goto loop1
rem * hier sollte noch ein pausebefehl hin *
goto loop2:
|
So legt er immer einen exacten Mirror an(es werden auch welche gelöscht die nicht mehr auf dem Stick sind), oder robocopy /E statt /mir , dann werden neue dazu kopiert aber keine gelöschten entfernt.
Robocopy ist ein Tool von Microsoft mit Fortschrittsanzeige. Runterladen und halt ins gleiche Verzeichnis wie die BAT legen oder ins Windows dir. Und freeware tools zum warten gibts ganz sicher auch.
Gruß,
Anti
|
|
|
|
|
|
|
|
DeASI
Stammposter
Alter: 36
Anmeldung: 23.06.2006
Beiträge: 258
Wohnort: Wermelskirchen
|
|
geiles programm, ich hab mir zwar auch shcon ne bat datei geschrieben, aber musste die bislang immer manuell starten und jetzt gehts schön automatisch.
kann man eigentl auch aus 2 verzeichnissen alle datein in 2 verschiedenen verzeichnisse kopierne lassen, das bräucht ich nämlich (mp3s + playlists).
bild mit skalierbarer größe und fortschrittbalken wär natürlich auch easy .
|
|
|
|
|
|
|
|
|
Blackangel
Stammposter
Alter: 40
Anmeldung: 04.02.2007
Beiträge: 331
Wohnort: Beerfelden
2002 Ford Focus
|
|
|
|
DeASI
Stammposter
Alter: 36
Anmeldung: 23.06.2006
Beiträge: 258
Wohnort: Wermelskirchen
|
|
So, ich habe es leider nicht mit dem Programm USBUPD geschafft, meine alten Playlisten von den neuen ersetzten zu lassen. Ich will das Programm jetzt nicht schlecht reden, nur eine Alternative emphelen, falls USBUPD nicht reicht. Ich hab jetzt ein anderes Programm gefunden und zwar AutoRunnerX: http://www.usb-stick-software.de/tools/autorunnerx/
Damit kann man jedes beliebige Programm starten, sobald der USB-Stick angesteckt wird.
|
|
|
|
|
|
|
|
|