Similar Query over Deleting files

[robvr6]

Hi again,

I have a directory that contains files and I wish to allow the user to delete them but would it be possible to display a message while the files are bieng deleted because otherwise it looks as if my program has locked up.

this is the code I'm using for deleting files. Also when the button is clicked to browse to the folder it doesnt always select the correct on. i.e if I have been in another folder it goes straight to that one. any suggestions.

Thanks
R

Private Sub Command5_Click()
 
Dim strFile() As String, strPath As String
    Dim n As Long, nCount As Long
    On Error Resume Next
    With CommonDialog1
    
        .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNLongNames
        .MaxFileSize = 32767
        .CancelError = True
        .InitDir = "C:\Program Files\mgamerz\XML PLAYER\my_mp3s"
        .DialogTitle = "Select File To Delete"
                                                             
       .ShowOpen
        If Err.Number <> cdlCancel Then
            strFile = Split(.FileName, vbNullChar)
            nCount = UBound(strFile)
            If nCount = 0 Then
                'Only one file is selected so split up the path and the filename
                ReDim strFile(1)
                strFile(0) = Left$(.FileName, InStrRev(.FileName, "\"))
                strFile(1) = Mid$(.FileName, InStrRev(.FileName, "\") + 1)
                nCount = 1
            End If
            strPath = strFile(0)
            If Right$(strPath, 1) <> "\" Then
                strPath = strPath & "\"
            End If
            For n = 1 To nCount
                    Kill strPath & strFile(n)
           
            Next
        End If
    End With
End Sub

[Joacim Andersson]

You can use the same code as you did with your play list. Update a ProgressBar in the loop, or just change the Caption of a Label showing the file name of the file that is being deleted.

[robvr6]

After adding many files and the button to write the xml file is clicked it seems to lock up the other command buttons. Do I need something in this code to Kill it or something?.

Private Sub Command2_Click()
Dim f1 As Integer, xmlpath As String, songpath As String, mp3path As String, f2 As Integer, i As Integer, pos As Integer
    Dim Artist As String, SongName As String, artname As String, fname As String, MyPath As String
Dim mysong As String
 
    Dim mytag As Boolean
   mp3path = "C:\Program Files\mgamerz\XML PLAYER\my_mp3s\"
   xmlpath = "C:\Program Files\mgamerz\XML PLAYER\"
 
 
     
     SongName = Dir(mp3path & "\*.mp3")
     fname = mp3path & SongName
     
            With Form4
    
    While Not Len(SongName) = 0
        
'        Artist = GetMP3Tag(fname)
                If Not i = 0 Then
                    Load .Label1(i): Load .Text1(i)
                    .Label1(i).Top = .Label1(i - 1).Top + 350
                    .Text1(i).Top = .Text1(i - 1).Top + 350
                    .Label1(i).Visible = True: .Text1(i).Visible = True
                    
                End If
                
                .Label1(i) = SongName
                mytag = GetMP3Tag(fname)
                .Text1(i) = RTrim(MP3Info.sArtist)
                      
 
        SongName = Dir
             fname = mp3path & SongName
 
        i = i + 1
    
    Wend
                .Height = .Text1(.Text1.Count - 1).Top + 1600
                .TAG = mp3path
                MDIForm1.Caption = "Close This Form to Update XML Playlist"
                .Show
'                .WindowState = 2
            End With
    TAG = "wait"
    While TAG = "wait"
    DoEvents
    Wend
    
     
   i = 1
     f2 = FreeFile
    Open mp3path & "mp3.txt" For Output As #f2
     f1 = FreeFile
     
    Open xmlpath & "audiolist.xml" For Output As #f1
    
    
    Print #f1, "<?xml version=""1.0""?>"
    Print #f1, "<songs>"
    SongName = Dir(mp3path & "\*.mp3")
    i = 1
    While Not Len(SongName) = 0
        
        ' if you can return the name of the artist you put the code in here
 
               mytag = GetMP3Tag(mp3path & SongName)
             'pos = InStr(mytag, "\")
             mytag = Replace(mytag, "\", "/")
Do While InStr(mytag, " ")
  mytag = Replace(mytag, " ", "")
Loop
 
             Artist = RTrim(MP3Info.sArtist)
             If Len(Artist) = 0 Then Artist = "UNKOWN"
                 
                 
              MyPath = Right(mp3path, (Len(mp3path) - Len(xmlpath))) & " " & SongName
        
             MyPath = Replace(MyPath, "\", "/")
             
 
           MyPath = Replace(MyPath, " ", "", 1, 1)
           
           mysong = Left$(SongName, Len(SongName) - 4)
 
           
       songpath = "<song path=""" & MyPath & """ artist=""" & Artist & """ title=""" & mysong & """/> "
 
       
        Print #f1, songpath
        Print #f2, SongName
        Sleep 100
        SongName = Dir
    
    Wend
 
    Print #f1, "</songs>"
Close
 
End Sub

Thanks
R

[Joacim Andersson]

While code is executed VB can't handle events unless you put in a DoEvent somewhere in the loop.

[robvr6]

will that need to go int the code to write XML or would it be easier to display a message while it is doing until it has finished processing

[Joacim Andersson]

For your origional post in this thread you can use the following approach if you like. Download the attached Form and add it to your project and use code simular to this:

Private Sub Command5_Click()
 
    Dim strFile() As String, strPath As String
    Dim n As Long, nCount As Long
    Dim dlg As frmProgress
 
    On Error Resume Next
    With CommonDialog1
    
        .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNLongNames
        .MaxFileSize = 32767
        .CancelError = True
        .InitDir = "C:\Program Files\mgamerz\XML PLAYER\my_mp3s"
        .DialogTitle = "Select File To Delete"
                                                             
       .ShowOpen
        If Err.Number <> cdlCancel Then
            Set dlg = New frmProgress
            dlg.Show vbModeless, Me
            DoEvents
            strFile = Split(.FileName, vbNullChar)
            nCount = UBound(strFile)
            If nCount = 0 Then
                'Only one file is selected so split up the path and the filename
                ReDim strFile(1)
                strFile(0) = Left$(.FileName, InStrRev(.FileName, "\"))
                strFile(1) = Mid$(.FileName, InStrRev(.FileName, "\") + 1)
                nCount = 1
            End If
            strPath = strFile(0)
            If Right$(strPath, 1) <> "\" Then
                strPath = strPath & "\"
            End If
            For n = 1 To nCount
                Call dlg.Progress(strPath & strFile(n)
                Kill strPath & strFile(n)
            Next
            Unload dlg
            Set dlg = Nothing
        End If
    End With
End Sub

[robvr6]

for some reason Im getting a syntax error with this line:

Call dlg.Progress(strPath & strFile(n)

[Joacim Andersson]

for some reason Im getting a syntax error with this line:

Call dlg.Progress(strPath & strFile(n)

Sorry it's missing a paranthesis.
Call dlg.Progress(strPath & strFile(n))

[robvr6]

that wo9rks great but as soon as I click the update xml button it locks everything up - is there anyway I could display something like the egg timer until it is finished - because when its finished processing it should then stop and the other buttons should work shouldn't they or am I totally wrong as usual?

Thaks
R