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

  • 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