hi,

habe gerade erst angefangen mich mit vb zu beschäftigen.

ich möchte gerne bestimmte dateien zuerst kopieren und anschließend löschen.

das kopieren ist kein problem, aber das löschen.

zur zeit sage ich nur wenn datei mit endung .*txt oder .*bmp oder .*doc vorhanden, dann kopiere.

aber es soll auch noch nach dem kopieren das löschen im quellordner erfolgen.

jetzt weis ich aber nicht welche dateinamen vorhanden sind.

könnt ihr mir vielleich einen denkanstoß geben der mir weiterhilft.

kenn mich noch nicht so aus.

mach das ganze eher mit learning by doing.



anbei mal der code :







Option Explicit

Private Sub Check1_Click()

If Check1.Value = 1 Then
anzeige1.Caption = "TRUE"
anzeige1.ForeColor = RGB(0, 255, 0)
Else
anzeige1.Caption = "FALSE"
anzeige1.ForeColor = RGB(255, 0, 0)
End If

End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
anzeige2.Caption = "TRUE"
anzeige2.ForeColor = RGB(0, 255, 0)
Else
anzeige2.Caption = "FALSE"
anzeige2.ForeColor = RGB(255, 0, 0)
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
anzeige3.Caption = "TRUE"
anzeige3.ForeColor = RGB(0, 255, 0)
Else
anzeige3.Caption = "FALSE"
anzeige3.ForeColor = RGB(255, 0, 0)
End If
End Sub

Private Sub Command1_Click()
Dim doc
Dim txt
Dim bmp
Dim fs1
Dim fs2
Dim fs3

Set doc = Check1
If doc.Value = 1 Then
Set fs1 = CreateObject("Scripting.FileSystemObject")
fs1.copyfile "c:\Quelle\*.doc", "c:\Ziel\", True
End If

Set txt = Check2
If txt.Value = 1 Then
Set fs2 = CreateObject("scripting.FileSystemobject")
fs2.copyfile "c:\Quelle\*.txt", "c:\Ziel\", True
End If

Set bmp = Check3
If bmp.Value = 1 Then
Set fs3 = CreateObject("scripting.filesystemobject")
fs3.copyfile "c:\Quelle\*.bmp", "c:\Ziel\", True
End If
End Sub






mfg

Hallo

Benutze doch MoveFile statt CopyFile.
Dann ersparst Du dir das Löschen.

hi,
danke dür die antwort, klappt aber leider nicht.
es kommt folgende fehlermeldung : Laufzeitfehler "450"