Archief - [PROG][VB6.0] files oproepen zonder filename gebruiken?

' Zet een FileListBox (File1) op je Form

Option Explicit

Private Sub Form_Load()

    Dim filedir, filetype, newtitleformat As String
    filedir = "C:\filmkes\"                         ' je folder met je bestanden
    filetype = ".avi"                               ' het type van je bestanden
    newtitleformat = "thismovie_part_"              ' nieuwe naam voor de bestanden
    
    If Dir(filedir, vbDirectory) = "" Then
       MsgBox "Directory does not exists.", , "Report"
    Else
    
        File1.Visible = False
        File1.Pattern = "*" & filetype
        File1.Path = filedir

        If File1.ListCount = 0 Then
        MsgBox "No Files found with this extension.", , "Report"
        Else
    
            Dim filenames() As String: ReDim filenames(0 To File1.ListCount - 1)
            Dim i As Integer
        
            For i = 0 To File1.ListCount - 1 ' Eerst index alle bestanden voordat je ze hernoemt!
            filenames(i) = filedir & File1.List(i)
            Next i
        
            For i = 0 To File1.ListCount - 1 ' hernoem ze één voor één
            FileRename filedir & filenames(i), _
                       filedir & newtitleformat & Format(i + 1, "000") & filetype
            Next i
    
        End If
    
    End If
    
End Sub

Sub FileRename(sOldFilename As String, sNewfilename As String)

    Debug.Print "Rename " & sOldFilename & " To " & sNewfilename
    ' zet hier je routine voor het hernoemen van de oude in het nieuwe bestandsnaam
    ' ...
    
End Sub