Sub MoveUserSelectedFiles()
    Dim sourceFiles As FileDialog
    Dim destinationFolder As String
    Dim filePath As String
    Dim fso As Object
    Dim i As Integer
    
    ' Initialize FileDialog for selecting files
    Set sourceFiles = Application.FileDialog(msoFileDialogFilePicker)
    sourceFiles.Title = "Select Files to Move"
    sourceFiles.AllowMultiSelect = True
    
    ' Show file selection dialog
    If sourceFiles.Show = -1 Then
        If sourceFiles.SelectedItems.Count = 0 Then
            MsgBox "No files were selected. Operation cancelled.", vbExclamation
            Exit Sub
        End If
        
        ' Initialize FileDialog for selecting the destination folder
        With Application.FileDialog(msoFileDialogFolderPicker)
            .Title = "Select Destination Folder"
            If .Show = -1 Then
                destinationFolder = .SelectedItems(1) & "\"
            Else
                MsgBox "No destination folder selected. Operation cancelled.", vbExclamation
                Exit Sub
            End If
        End With
    Else
        MsgBox "No files selected. Operation cancelled.", vbExclamation
        Exit Sub
    End If
    
    ' Initialize FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' Loop through selected files and move them
    For i = 1 To sourceFiles.SelectedItems.Count
        filePath = sourceFiles.SelectedItems(i)
        
        ' Ensure the file exists before moving
        If fso.FileExists(filePath) Then
            Debug.Print "Moving: " & filePath & " to " & destinationFolder & fso.GetFileName(filePath)
            
            ' Try CopyFile first to verify access
            On Error Resume Next
            'fso.CopyFile filePath, destinationFolder & fso.GetFileName(filePath)
            fso.MoveFile filePath, destinationFolder & fso.GetFileName(filePath)

            
            If Err.Number <> 0 Then
                MsgBox "Error moving file: " & filePath & vbNewLine & "Error: " & Err.Description, vbCritical
                Err.Clear
            Else
                ' Only delete after confirming successful copy
                fso.DeleteFile filePath
            End If
            On Error GoTo 0
            
        Else
            MsgBox "File not found or inaccessible: " & filePath, vbCritical
        End If
    Next i
    
    MsgBox "Files moved successfully!", vbInformation
    
    ' Clean up
    Set fso = Nothing
    Set sourceFiles = Nothing
End Sub

Option Explicit

Sub myMacro()

Dim myFile As Object
Set myFile = CreateObject("Scripting.FileSystemObject")
Call myFile.CopyFile("C:\Users\logit\OneDrive\Desktop\Excel Repair\WinZip Registration.txt", "C:\Users\logit\OneDrive\Desktop\", True)

End Sub

Sub killFile()

Dim killFile As String
killFile = "C:\Users\logit\OneDrive\Desktop\Excel Repair\WinZip Registration.txt"

 Dim Msg As String, Title As String
  Dim Config As Integer, Ans As Integer
  Msg = "Are You Sure ?"
  Msg = Msg & vbNewLine & vbNewLine
  Msg = Msg & "Changes Cannot Be Undone."
 
  Title = "File Delete Critical !"
  Config = vbYesNo + vbCritical
  Ans = MsgBox(Msg, Config, Title)
  If Ans = vbYes Then
    If Len(Dir$(killFile)) > 0 Then
    SetAttr killFile, vbNormal
      Kill killFile
      Else
    MsgBox "File Not Found"
    End If
  End If
  
  If Ans = vbNo Then Exit Sub

End Sub

Sub CopyOrMoveFiles()


Dim fd As fileDialog
Dim selectedItems As FileDialogSelectedItems
Dim selectedFile As Variant
Dim destinationPath As String
Dim userChoice As Integer
Dim fso As Object

    ' Initialize FileDialog
    Set fd = Application.fileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = True
    fd.Title = "Select Files to Copy or Move"
    
    ' Show the FileDialog
    If fd.Show = -1 Then
            Set selectedItems = fd.selectedItems
    Else
            MsgBox "No files were selected."
        Exit Sub
    End If
    
    
    ' Ask user for destination folder
    Set fd = Application.fileDialog(msoFileDialogFolderPicker)
    fd.Title = "Select Destination Folder"
    If fd.Show = -1 Then
            destinationPath = fd.selectedItems(1) & "\"
        Else
            MsgBox "No destination folder was selected."
            Exit Sub
    End If
    
    
    ' Ask user whether to copy or move files
    userChoice = MsgBox("Do you want to copy the files? Click 'No' to move them.", vbYesNoCancel + vbQuestion, "Copy or Move Files")
    If userChoice = vbCancel Then
        MsgBox "Operation cancelled."
        Exit Sub
    End If
    
    
    ' Initialize FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' Copy or move files based on user choice
    For Each selectedFile In selectedItems
        If userChoice = vbYes Then
            ' Copy files
            fso.CopyFile Source:=selectedFile, Destination:=destinationPath, OverWriteFiles:=True
        Else
        ' Move files
        End If
    Next selectedFile
    
    
    MsgBox "Files have been successfully processed."


End Sub