סיערטש העלף

די אחראים: זייער נייגעריג,אחראי,thefact

יהיה כן
שר תשעת אלפים
תגובות: 9226
זיך איינגעשריבן אום: זונטאג מאי 03, 2009 2:25 pm

סיערטש העלף

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יהיה כן »

איך וויל זוכן אין א פאלדער הונדערטער פיילס וואס זייערע פייל-נעמען (א חלק פון די נאמען) ליגן אין א עקסעל שיעט, וואס איז די גרינגסטע וועג דאס צו פראצעסירן

דאנקע פון פאראויס
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13865
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

CMD

קאוד: וועל אויס אלע

dir c:\folder /b >txtfile.txt
יהיה כן
שר תשעת אלפים
תגובות: 9226
זיך איינגעשריבן אום: זונטאג מאי 03, 2009 2:25 pm

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יהיה כן »

א גרויסן שכוח פאר 'למעלה משבעים' [וואס למעלה משבעים, למעלה ממאה אחוז!!!] פאר זיין אומשאצבארע הילף אין אישי!!!
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13865
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

שרייב כאטש דא די וועג
זאל א צווייטער אויך וויסן
יהיה כן
שר תשעת אלפים
תגובות: 9226
זיך איינגעשריבן אום: זונטאג מאי 03, 2009 2:25 pm

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך יהיה כן »

ביזט דאך געוואלדיג און העלפן א צווייטן יוד
לאמיך בעסער מסביר זיין מיין אישו
די מעשה איז אזוי, כ'האב א עקסעל פייל מיט נעמען פון געוויסע פיילס וועלכע ליגן אין א פאלדער צווישן טויזנטער אנדערע פיילס
יעצט וואס איך וויל איז, אז כ'זאל דורך ווינדאוס עקספלארער קענען קאפיען נאר די אלע פיילס וואס זענען באצייכנט זייערע נעמען אין די עקסעל פייל
און נעמען די אלע פיילס אריינקאפירן אין א נייע פאלדער (וואס כ'זאל דארט באקומען 'נאר' די פיילס וואס זענען אויסגערעכנט אין די עקסעל פייל)
כ'האף כ'האב מיך גוט מסביר געווען, ואם תוכל לעזור לי בזה, וועליך דיר זייער דאנקבאר זיין
ששכוח אגעין!!


דאן טו אזוי, עפן א נייע עקסעל פייל, לייג אריין אין קאלום 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 לאזן א מעסידזש וועלכע ס'איז נישט אריבער.

הצלחה, זאג צו ס'האט געארבעט.

למעלה משבעים
שר חמשת אלפים
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13865
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

שיין
שרייב תגובה

צוריק צו “ווינדאוס און מעק”