Hallo,
ich habe ein Problem mit dateien verschieben.
Ich habe in einem ordner dateien gleichen typs und möchte diese je nach dateinamen in verschiedene, schon bestehende Ordner verschieben.
Bsp.
111v.mp3 , 222v.mp3, 333v.mp3 sind die dateien
Zielordner die schon bestehen sind: 111 , 222 , 333
Es muss also geprüft werden, ob der Dateiname der datei mit dem namen des Zielordners übereinstimmt. (Dateinamen der datei enthält auch ein v muss bis zum v überprüft werden ob dateiname wie ordner ist). Dies soll ein automatismuss werden. ich habe eine 1tes Script geschrieben das dateinamen
überprüft aber nicht odernernamen und dies statisch in die ordner verschiebt.
Dies muss sollte aber dynamisch passieren. Ich weiss nicht wie ich das lösen kann da ich einige mp3s verschieben möchte.
mein code:
//
For Each Fi In fso.GetFolder("C:\temp").Files
NameF = Fi.Name
TabName = Split(NameF, ".")
NameF = TabName(0) & "v.mpe".ToString
'Dim a = Fi.Name.GetType()
'MsgBox(a.ToString)
' = NameF 'not too sure about this ...
If TabName(0).ToString = "111" Then
fso.MoveFile("C:\temp\111.mp3", "C:\temp\111\")
Else
MsgBox("nein")
End If
'Fi.Name = NameF
ich habe ein Problem mit dateien verschieben.
Ich habe in einem ordner dateien gleichen typs und möchte diese je nach dateinamen in verschiedene, schon bestehende Ordner verschieben.
Bsp.
111v.mp3 , 222v.mp3, 333v.mp3 sind die dateien
Zielordner die schon bestehen sind: 111 , 222 , 333
Es muss also geprüft werden, ob der Dateiname der datei mit dem namen des Zielordners übereinstimmt. (Dateinamen der datei enthält auch ein v muss bis zum v überprüft werden ob dateiname wie ordner ist). Dies soll ein automatismuss werden. ich habe eine 1tes Script geschrieben das dateinamen
überprüft aber nicht odernernamen und dies statisch in die ordner verschiebt.
Dies muss sollte aber dynamisch passieren. Ich weiss nicht wie ich das lösen kann da ich einige mp3s verschieben möchte.
mein code:
//
For Each Fi In fso.GetFolder("C:\temp").Files
NameF = Fi.Name
TabName = Split(NameF, ".")
NameF = TabName(0) & "v.mpe".ToString
'Dim a = Fi.Name.GetType()
'MsgBox(a.ToString)
' = NameF 'not too sure about this ...
If TabName(0).ToString = "111" Then
fso.MoveFile("C:\temp\111.mp3", "C:\temp\111\")
Else
MsgBox("nein")
End If
'Fi.Name = NameF
