If fso.FolderExists ("C:\users\" & net.username & "\") Then
WshShell.Run """C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"" ""C:\users\" & net.username & "\access_pc3d\saisie base 3d.mdb"" /WRKGRP ""C:\users\" & net.username & "\access_pc3d\Sécurité.mdw" /runtime ""
else
WshShell.Run """C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"" ""C:\documents and settings\" & net.username & "\access_pc3d\saisie base 3d.mdb"" /WRKGRP ""C:\documents and settings\" & net.username & "\access_pc3d\Sécurité.mdw"""
end if |