Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
... 'DroppedItem is decalred as a variant For Each DroppedItem In Data.Files DoEvents 'During long loops its always a good idea to return control to windows Debug.Print "Shift = " & Shift & " - " & DroppedItem pbFiles.Value = pbFiles.Value + 1 DoEvents If fso.FileExists(DroppedItem) Then ' test to see if the file exists sFileName = fso.GetFileName(CStr(DroppedItem)) If fso.FileExists(defDir & sFileName) Then ' we exist ' let the user decide if we over write or not Select Case MessageBoxx(Me, sFileName & " exists in the destination directory. Do you want to over write it? If you're unsure select Cancel and check your files.", vbExclamation + vbYesNoCancel) Case vbYes ' delete the file already there kill defDir & sFileName bOverwrite = True Case vbNo bOverwrite = False Case vbCancel Exit Sub End Select End If If Shift = 1 Then If bOverwrite Then fso.MoveFile DroppedItem, defDir Else If bOverwrite Then fso.CopyFile DroppedItem, defDir, bOverwrite End If ElseIf fso.FolderExists(DroppedItem) Then If Shift = 1 Then fso.MoveFolder DroppedItem, defDir Else fso.CopyFolder DroppedItem, defDir End If End If DoEvents bOverwrite = True Next ...
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.