Need to download files to users desktop

[jax1000rr]

Hi,



I am working on some code that will download a DB to the users desktop and create the directory if it does not already exist.

the below code works great if you have the absolute paths entered but my issue is that I have 20 users that will need to access this function so I need the code to download the files to that specific users Desktop.

Is there a way to map to a user specific desktop? I know that in Windows %user% is the users Windows login ID which is what I need to use.

Here is the code:

Private Sub Form_Open(Cancel As Integer)
Dim fso As Object
Dim sSourcePath As String
Dim sSourceFile As String
Dim sBackupPath As String
Dim sBackupFile As String
Dim db As New Access.Application
Dim buf As String
Dim strBu As String
sSourceFile = "DB.accde"
sSourcePath = "This is the path to the server and works fine"
sBackupFile = "DB.accde"
sBackupPath = "C:\Documents and Settings\%username%\Desktop\Tracker\"
buf = "C:\Documents and Settings\%username%\Desktop\" & "\Tracker\"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile sSourcePath & sSourceFile, sBackupPath & sBackupFile, True
Set fso = Nothing
DoCmd.Close acForm, "frmDataProcessing"
End Sub

[ssanfu]

This should be close.

Private Sub Form_Open(Cancel As Integer)
   Dim fso As Object
   Dim sSourcePath As String
   Dim sSourceFile As String
   Dim sBackupPath As String
   Dim sBackupFile As String
   Dim db As New Access.Application
   '   Dim buf As String
   Dim strBu As String
   Dim UName As String


   UName = Environ("UserName")
   sSourceFile = "DB.accde"
   sSourcePath = "This is the path to the server and works fine"
   sBackupFile = "DB.accde"
   sBackupPath = "C:\Documents and Settings\" & UName & "\Desktop\Tracker\"

   'check if dir exists
   If Dir(sBackupPath) = "" Then
      ' No? then make it
      MkDir sBackupPath
   End If
   
   '   buf = "C:\Documents and Settings\" & UName & "\Desktop\Tracker\"
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.CopyFile sSourcePath & sSourceFile, sBackupPath & sBackupFile, True
   Set fso = Nothing
   DoCmd.Close acForm, "frmDataProcessing"
End Sub

[June7]

I use Environ("USERNAME") - yes, type it EXACTLY as shown - to get the user's network login.

EDIT: And Steve got there first!

[jax1000rr]

This should be close.

Private Sub Form_Open(Cancel As Integer)
   Dim fso As Object
   Dim sSourcePath As String
   Dim sSourceFile As String
   Dim sBackupPath As String
   Dim sBackupFile As String
   Dim db As New Access.Application
   '   Dim buf As String
   Dim strBu As String
   Dim UName As String


   UName = Environ("UserName")
   sSourceFile = "DB.accde"
   sSourcePath = "This is the path to the server and works fine"
   sBackupFile = "DB.accde"
   sBackupPath = "C:\Documents and Settings\" & UName & "\Desktop\Tracker\"

  'check if dir exists
   If Dir(sBackupPath) = "" Then
      ' No? then make it
      MkDir sBackupPath
   End If
   
   '   buf = "C:\Documents and Settings\" & UName & "\Desktop\Tracker\"
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.CopyFile sSourcePath & sSourceFile, sBackupPath & sBackupFile, True
   Set fso = Nothing
   DoCmd.Close acForm, "frmDataProcessing"
End Sub

Thank you to the both of you, this is EXACTLY what I was looking for. One last question; if I want to copy all files from sSourcePath, how could I do that?

Thanks again!

[June7]

Copy all files to the same destination? Possibly asterisk (*) wildcard will accommodate that. Works for me. Review http://www.rondebruin.nl/folder.htm

[ssanfu]

*.* will copy all files.

*.accde will copy files where the extension is "accde".

[jax1000rr]

Thanks to all who replied. I would be lost if it were not for this forum!.