AW: Papa Schlumpf hat gesprochen :-)) oT
04.05.2007 15:41:39
Oberschlumpf
@Jens
Papa Schlumpf hat sich wohl VERgesprochen :-))
Denn Ena hat's ja nich so gemeint, wie ich es interpretierte.
Aber mir kann man immerhin zugute kommen lassen, dass ena's Erklärung so missverständlich war, dass man diese Erklärung auch missverstehen kann ;-)
Hi Ena
Trotzdem habe ich noch immer etwas zu bemängeln - und ich werde auch nicht müde, dies immer und immer wieder zu tun, wenn ich denke, es ist notwendig ;-)
Genau so wie ich dich begrüße, bevor ich weiter schreibe, möchte ich auch von dir mit einem Hi oder Hallo begrüßt werden.
Versuch dein Problem mal so zu lösen (ungetestet):
1. Listbox aktuell halten
In ein allgemeines Modul schreibst du diesen Code:
Sub LBUpdate()
Dim lstrFile As String
UserForm1.NameVonListbox.Clear
lstrFile = Dir("C:\Eigene\*.xls")
Do Until lstrFile = ""
UserForm1.NameVonListbox.AddItem lstrFile
lstrFile = Dir
Loop
End Sub
dann ins Activate-Ereignis des Userforms
Private Sub Userform1_Activate()
LBUpdate
End Sub
2. In Listbox ausgewählte Datei von "C:\Eigene" nach "C:\Haus" verschieben
Private Sub NameVonButtonDateiVerschieben_Click()
FileCopy "C:\Eigene\" & NameVonListbox.ListIndex, "C:\Hause\" & NameVonListbox.ListIndex
Kill "C:\Eigene\" & NameVonListbox.ListIndex
LBUpdate
End Sub
3. In Listbox ausgewählte Datei löschen
Private Sub NameVonButtonDateiLöschen_Click()
Kill "C:\Eigene\" & NameVonListbox.ListIndex
LBUpdate
End Sub
Du musst nun noch folgende Korrekturen im Code vornehmen:
NameVonListbox = hierfür musst du den Namen der Listbox eintragen, den du in deinem UF verwendest
NameVonButtonDateiVerschieben = hierfür musst du den Namen des Buttons eintragen, den du in deinem UF für den Datei Verschieben-Button verwendest
NameVonButtonDateiLöschen = hierfür musst du den Namen des Buttons eintragen, den du in deinem UF für den Datei Löschen-Button verwendest
Mir sind die richtigen Namen der Buttons und der Listbox leider nicht bekannt.
Bevor du all diesen ungetesteten Code in deine Originaldatei testest, kannst du ja eine Bsp-Datei erstellen und in dieser dann den Code testen. Sollten noch Probleme auftreten, kannst du dann ja gerne die - Bsp-Datei mit Bsp-Daten - uploaden.
Dann wirds mit dem Beantworten weiterer Fragen von dir noch einfacher.
Konnte ich helfen?
Ciao
Thorsten