איך וויל זוכן אין א פאלדער הונדערטער פיילס וואס זייערע פייל-נעמען (א חלק פון די נאמען) ליגן אין א עקסעל שיעט, וואס איז די גרינגסטע וועג דאס צו פראצעסירן
דאנקע פון פאראויס
סיערטש העלף
די אחראים: זייער נייגעריג,אחראי,thefact
ביזט דאך געוואלדיג און העלפן א צווייטן יוד
לאמיך בעסער מסביר זיין מיין אישו
די מעשה איז אזוי, כ'האב א עקסעל פייל מיט נעמען פון געוויסע פיילס וועלכע ליגן אין א פאלדער צווישן טויזנטער אנדערע פיילס
יעצט וואס איך וויל איז, אז כ'זאל דורך ווינדאוס עקספלארער קענען קאפיען נאר די אלע פיילס וואס זענען באצייכנט זייערע נעמען אין די עקסעל פייל
און נעמען די אלע פיילס אריינקאפירן אין א נייע פאלדער (וואס כ'זאל דארט באקומען 'נאר' די פיילס וואס זענען אויסגערעכנט אין די עקסעל פייל)
כ'האף כ'האב מיך גוט מסביר געווען, ואם תוכל לעזור לי בזה, וועליך דיר זייער דאנקבאר זיין
ששכוח אגעין!!
דאן טו אזוי, עפן א נייע עקסעל פייל, לייג אריין אין קאלום B די גאנצע ליסט פון די נעמען, יעצט לייג אריין אין קאלום A די לאקעישן ווי די פייל'ס ליגן - דאס הייסט אויב אלע ליגן אין די זעלבע פאלדער כגון C:\Users\YCH\Music לייג אריין אין קאלום A די לאקעישן - שלעפ עס אראפ ביז ווי די נעמען גייען אין קאלום B, יעצט אין קאלום C לייג די פלאץ ווי די ווילסט עס זאל גיין למשל C:\Users\YCH\Music\New און יעצט דריק אין די עקסעל פייל Alt F11 גיי צו דיס ווארקבוק, אין פעיסט אריין די מעקרא.
קאוד: קלויב אויס אלעס
קאוד: וועל אויס אלע
Option Explicit
Sub MoveFiles()
Dim SourcePath As String
Dim DestPath As String
Dim FileName As String
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
FileName = Cells(i, "B").Value
If Right(Cells(i, "A").Value, 1) <> Application.PathSeparator Then
SourcePath = Cells(i, "A").Value & Application.PathSeparator
Else
SourcePath = Cells(i, "A").Value
End If
If Right(Cells(i, "C").Value, 1) <> Application.PathSeparator Then
DestPath = Cells(i, "C").Value & Application.PathSeparator
Else
DestPath = Cells(i, "C").Value
End If
If Dir(SourcePath & FileName) = "" Then
Cells(i, "D").Value = "Source file does not exist."
ElseIf Dir(DestPath & FileName) <> "" Then
Cells(i, "D").Value = "File already exists."
Else
Name SourcePath & FileName As DestPath & FileName
Cells(i, "D").Value = "File moved to new location"
End If
Next i
End Sub
ראן די מאקרו, און אלעס דארף צו זיין אריבער, אויב נישט וועט ער דיר אין קאלום D לאזן א מעסידזש וועלכע ס'איז נישט אריבער.
הצלחה, זאג צו ס'האט געארבעט.
למעלה משבעים
שר חמשת אלפים