Omdøbe alle filer i en mappe fra VB?

Tilføj en reference til Microsoft Scripting Runtime til dit projekt.

Og indsæt følgende i f.eks. en knap:

Private Sub Command1_Click()
    Dim fso, f, f1, fc, count

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("stitildinmappe")    <-her indsættes din mappes sti
    Set fc = f.Files
   
    count = 1
    For Each f1 In fc
      If Right(f1.Name, 4) = ".jpg" Then
          f1.Name = count & ".jpg"
          count = count + 1
      End If
    Next

    f1 = Nothing
    fc = Nothing
    f = Nothing
    fso = Nothing

End Sub

Dette vil omdøbe jpg filer

/tjacob

Det kan godt være du skal have set med i de 4 nothing linier.

Denne metode kan kun anvendes hvis filnavnet(f.eks. 1.jpg) IKKE findes i forvejen. Det kunne man så teste først.

Sådan!

Mere præcist kunne det ikke gøres - jeg takker!

i mellemtiden fik jeg lavet koden der tjekker navnene først:

-Den er lidt klodset og kan sikkert finpudses:

Private Sub Command1_Click()
    Dim fso, f, f1, fc, count, antal, i

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("C:\Documents and Settings\Tonny\Skrivebord\test1")
    Set fc = f.Files
   
    antal = 0
    For Each f1 In fc
      If Right(f1.Name, 4) = ".jpg" Then
          antal = antal + 1
      End If
    Next
    For Each f1 In fc
        If Right(f1.Name, 4) = ".jpg" Then
            For i = 1 To antal
                If f1.Name = i & ".jpg" Then f1.Name = "zxz" & i & "dsa.jpg"
            Next i
        End If
    Next f1
    count = 1
    For Each f1 In fc
        If Right(f1.Name, 4) = ".jpg" Then
        f1.Name = count & ".jpg"
        count = count + 1
        End If
    Next f1
    Set f1 = Nothing
    Set fc = Nothing
    Set f = Nothing
    Set fso = Nothing
   
End Sub

Den har jeg også lavet - bare på en anden måde - men tak alligevel. Hvis du ikke er tilfreds med de 30, så må du jo bede om flere ;o) /Martin

Nej, nej -alt OK! -havde som sagt lavet den alligevel.

Du skal være velkommen til at fortsætte på http://www.eksperten.dk/spm/219755 :o]