Dim fi As String = e.FileNameDim fi1 As String = e.SubFolder
Dim fi2 As String = e.DataCol.DefaultFolder
'MessageBox.Show(fi2 & "\" & fi1 & "\" & fi)
If ftppp = False Then
If FileSys.FileExists(fi2 & "\" & fi1 & "\" & fi) Then
Dim aa As String = Rand.NextString(4) & fi
e.FileName = aa
End If
End If