Private Sub txtSource_Click()
Dim Dialog As FileDialog
Dim Selected As Long
Set Dialog = FileDialog(msoFileDialogFilePicker)
With Dialog
.AllowMultiSelect = False
.InitialFileName = Nz(Me!txtSource.Value)
.Title = "Select file to copy"
Selected = .Show
If Selected <> 0 Then
Me!txtSource.Value = .SelectedItems.Item(1)
End If
End With
Cancel = True
End Sub
Private Sub txtTarget_Click()
Dim Dialog As FileDialog
Dim Selected As Long
Set Dialog = FileDialog(msoFileDialogSaveAs)
With Dialog
.AllowMultiSelect = False
.InitialFileName = Nz(Me!txtTarget.Value)
.Title = "Name saved file"
Selected = .Show
If Selected <> 0 Then
Me!txtTarget.Value = .SelectedItems.Item(1)
If Not IsNull(Me!txtSource.Value) Then
FileCopy Me!txtSource.Value, Me!txtTarget.Value
End If
End If
End With
Cancel = True
End Sub
1. In (Replace(FullPath, StaticPath,) , how FullPath and StaticPath will be declared? I have static folder as W:\Document\ and after this there are 10 folder's where user will save the file in anyone of them.
2.I have a server in which Document Library is build which is mapped to my PC. In this scripting runtime "("C:\MyApp\Documents\Impo
Thank you again.