VBA | gemme fil fra anden pc på en delt mappe på en Win2K server.

Hej Benson,

1) Ja. Giv den nødvendige adgang/permissions til "everyone"
2) Det er muligt men bør vel undgås..

Jamen den er sat til at "alle" har fuld adgang i forvejen. Men det kunne tyde på at det er alle de brugere der er oprettet på Win2k maskinen ?

Hmm - jeg var måske for hurtig.. Har du prøvet at give rettigheder til "Guest"-gruppen på den aktuelle server?

jepper... det virker også fint hvis man i forvejen er logget på det delte drev som gæst. (dvs. gennem stifinder f.x).
Men mine bruger skal helst ikke besværliges med at indtaste brugernavne og kodeord. Alt dette skal løses fra det regneark de bruger (dvs. VBA makroen).

OK,

vedlægger lidt udokumenteret kode (VB class file) du kan prøve at innkludere i dit projekt (Er ikke 100 om du kan afvikle fra det via VBA??)

User og PW er hardcoded i klassen.....

<Class File>

Option Explicit
'-- Classen mapper og disconnecter et netværksdrev.



Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias _
      "WNetAddConnection2A" (lpNetResource As NETRESOURCE, _
      ByVal lpPassword As String, ByVal lpUserName As String, _
      ByVal dwFlags As Long) As Long

Private Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias _
      "WNetCancelConnection2A" (ByVal lpName As String, _
      ByVal dwFlags As Long, ByVal fForce As Long) As Long


Private Type NETRESOURCE
  dwScope As Long
  dwType As Long
  dwDisplayType As Long
  dwUsage As Long
  lpLocalName As String
  lpRemoteName As String
  lpComment As String
  lpProvider As String
End Type





Private Const NO_ERROR = 0
Private Const CONNECT_UPDATE_PROFILE = &H1
' The following includes all the constants defined for NETRESOURCE,
' not just the ones used in this example.
Private Const RESOURCETYPE_DISK = &H1
Private Const RESOURCETYPE_PRINT = &H2
Private Const RESOURCETYPE_ANY = &H0
Private Const RESOURCE_CONNECTED = &H1
Private Const RESOURCE_REMEMBERED = &H3
Private Const RESOURCE_GLOBALNET = &H2
Private Const RESOURCEDISPLAYTYPE_DOMAIN = &H1
Private Const RESOURCEDISPLAYTYPE_GENERIC = &H0
Private Const RESOURCEDISPLAYTYPE_SERVER = &H2
Private Const RESOURCEDISPLAYTYPE_SHARE = &H3
Private Const RESOURCEUSAGE_CONNECTABLE = &H1
Private Const RESOURCEUSAGE_CONTAINER = &H2
' Error Constants:
Private Const ERROR_ACCESS_DENIED = 5&
Private Const ERROR_ALREADY_ASSIGNED = 85&
Private Const ERROR_BAD_DEV_TYPE = 66&
Private Const ERROR_BAD_DEVICE = 1200&
Private Const ERROR_BAD_NET_NAME = 67&
Private Const ERROR_BAD_PROFILE = 1206&
Private Const ERROR_BAD_PROVIDER = 1204&
Private Const ERROR_BUSY = 170&
Private Const ERROR_CANCELLED = 1223&
Private Const ERROR_CANNOT_OPEN_PROFILE = 1205&
Private Const ERROR_DEVICE_ALREADY_REMEMBERED = 1202&
Private Const ERROR_EXTENDED_ERROR = 1208&
Private Const ERROR_INVALID_PASSWORD = 86&
Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&

Public Function MappDrev(MapShare)
      Dim NetR As NETRESOURCE
      Dim ErrInfo As Long
      Dim MyPass As String, MyUser As String

      NetR.dwScope = RESOURCE_GLOBALNET
      NetR.dwType = RESOURCETYPE_DISK
      NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
      NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
     
      NetR.lpRemoteName = MapShare
      'feks.: \\10.10.10.3\folderX
     
      'NetR.lpComment = "Optional Comment"
      'NetR.lpProvider =    ' Leave this undefined
      MyPass = "PW"
      MyUser = "USERNAME"

      ' If the MyPass and MyUser arguments are null (use vbNullString), the
      ' user context for the process provides the default user name.
      ErrInfo = WNetAddConnection2(NetR, MyPass, MyUser, _
      CONNECT_UPDATE_PROFILE)
     
      MappDrev = ErrInfo
End Function

Public Function DisMappDrev(strLocalName As String)
      Dim ErrInfo As Long
      ErrInfo = WNetCancelConnection2(strLocalName, _
      CONNECT_UPDATE_PROFILE, False)
      DisMappDrev = ErrInfo
End Function

</Class File>


Class kaldes f.eks. som:
    Dim Mapp As New NetworkMapper
    Call Mapp.MappDrev(InputFileShare)

Hold da helt op.... lang tid siden.

Capaj vil du lægge et svar så får du lidt point for arbejdet. Jeg fik dog aldrig løst opgaven og er siden startet i andet arbejde :)

Og undskyld for den store forsinkelse.