pogoj v inputbox-u

[luka_k]

pozdravljeni,

rad bi izvedel sledeč makro
Dim Mapa As String
Mapa = InputBox("Napiši pot do mape...", "vnos gesla", "C:\Users\luka\Desktop\september 2010")
.......
.......

torej, v inputbox-u je privzeta pot.

želel bi, da v kolikor na računalniku ne najde te poti, torej mape,
v msgbox napiše

msgbox "določili ste napačno pot"

upam, da ne bo prehudo
že v naprej se zahvaljujem.
lp

[admin]

Tole je funkcija, ki jo iščete:

Koda: Izberi vse

Option Explicit

Sub MapaObstaja()
  Dim mapa As String: mapa = "C:\Users\luka\Desktop\september 2010"
  Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
  
  If Not fso.FolderExists(mapa) Then
    MsgBox mapa & " ne obstaja!", vbInformation, "Napačna pot"
  End If
End Sub

[luka_k]

pozdravljeni,

uhhh, tega pa sam nebi spravil skupaj...
najlepša hvala za pomoč
lp