Új hozzászólás Aktív témák

• #53270 tomi_x tag

  Új Válasz 2024-09-23 20:51:01 #53270

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  tomi_x

  tag

  Sziasztok !

  Sharepointon szeretnék mappát létrehozni, ha nem létezik a mappa. A mappa nevét a táblázat egy cellája tartalmazza.
  De sajna a "Path not found" hibára futok.
  Mit rontottam el ?
  A kód:
  Private Sub CommandButton1_Click()
Dim mappanev As String
Dim fso As Scripting.FileSystemObject
Dim WSNET As Object

'mappa név a fejléc adatokból
mappanev =
\\tomi.sharepoint.com\Shared%20Documents\teszt%20mappa\" & Cells(10, 11).Value
MsgBox mappanev

'létező mappa vizsgálata, ha nem létezik akkor létrehozás
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSNET = CreateObject("WScript.Network")
If fso.FolderExists(mappanev) = True Then
MsgBox "A könyvtár létezik az adott könyvtárba"
Else
fso.CreateFolder mappanev
MsgBox "A könyvtár nem létezett, ezért létrehoztam"
End If
End Sub

  Előre is köszi a segítséget.

Új hozzászólás Aktív témák