pogoj v inputbox-u

Pomoč pri izdelavi makrov
Odgovori
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

pogoj v inputbox-u

Odgovor Napisal/-a 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
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: pogoj v inputbox-u

Odgovor Napisal/-a 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
lp,
Matjaž Prtenjak
Administrator
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

Re: pogoj v inputbox-u

Odgovor Napisal/-a luka_k »

pozdravljeni,

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