ich bräuchte einen Ansatz, mit dem ich alle Dateien, deren Dateinamen mit "LN" beginnen, aus einem Ordner C:\abc in einen anderen Ordner V:\xyz verschieben kann.
Vielen Dank für Euren Hilfe im voraus.
Gruß
Torsten
Private Sub SearchInFolder(ByVal Folderspec As String, ByVal Zielordner As String) '
Dim StTyp As String
Dim FSO As Object
Dim FI As Object
Set FSO = CreateObject("Scripting.Filesystemobject")
If Not FSO.FolderExists(Folderspec) Then
MsgBox Folderspec & " ist nicht vorhanden."
Set FSO = Nothing
Exit Sub
End If
StTyp = "txt" 'Bitte anpassen des Datei Typs
Anfangderdatei = "LN" 'Bitte anpassen des Anfangs des Dateinamen
For Each FI In FSO.GetFolder(Folderspec).Files
If UCase(FSO.GetExtensionName(FI)) = UCase(StTyp) Then
If UCase(FSO.GetFileName(FI)) Like UCase(Anfangderdatei & "*") Then
FSO.MoveFile FI, Zielordner & "\"
End If
End If
Next
Set FSO = Nothing
End Sub
Sub Verschieben()
Call SearchInFolder("C:\Bastian", "C:\Bastian\add") ' 1 ist der suchordner 2 ist der wo hin es _
verschoben wird
End Sub
Sub a()
Const PFAD_A As String = "C:\abc\"
Const PFAD_B As String = "C:\xyz\"
Dim Datei As String
Datei = Dir(PFAD_A, vbDirectory)
Do While Datei vbNullString
If Left(Datei, 2) = "LN" Then
Name PFAD_A & Datei As PFAD_B & Datei
Datei = Dir
Loop
End Sub
LGSub File_verschieben()
Dim Quelle$, Ziel$, FSO As Object
Quelle = "C:\abc\LN*.*"
If Dir(Quelle) = "" Then
MsgBox "Keine Dateien vorhanden!"
Else
Ziel = "V:\xyz\"
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile Quelle, Ziel
Set FSO = Nothing
End If
End Sub