Baixarfilmeafestadebabettedublado ((INSTALL))

Baixarfilmeafestadebabettedublado ((INSTALL))

Download === DOWNLOAD





You can use the following code:
Dim All_Dict As Object, i As Long
Dim strFile As String, line As String
Dim FSO As Object, Folder_Name As String, file_name As String, extension As String, ofile As String
Dim j As Long, n As Long
‘Create Object Dim All_Dict As Object
Set All_Dict = CreateObject(“Scripting.Dictionary”)

‘Open Folder
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Folder_Name = “D:\Scripts\File_Checker”

For j = 2 To MyListBox.ListCount – 1
file_name = MyListBox.List(j)
extension = LCase(ExtractFileExtension(file_name))

If Not All_Dict.Exists(extension) Then
‘Get the size of the file
n = Application.GetSaveAsFilename _
(InitialFileName:=ExtractFilePath(Folder_Name), _
Filename:=file_name, _
Title:=”Save As Type”, _

If n = False Then
MsgBox “You have selected ” & file_name & ” but it doesn’t exist”
End If
Exit For
End If

ofile = Folder_Name & “” & file_name

If FSO.FileExists(ofile) Then
If FSO.FileExists(ofile & “.pdf”) Then
‘Remove the other extension (.pdf)
FSO.DeleteFile ofile, True
End If

Related Posts