filesystemobject

[Guest]

Hi

If i use
fso.Createfolder "c:\" & tt & tal & kur1

How can i make a msgbox and exit if the folder allready exits

Regards

alvin

 

[Guest]

fso.GetFolder("c:\" & tt & tal & kur1) returns an error if the foler does not
exist, so,

On Error goto NoFolder

Set FolderObj = fso.GetFolder("c:\" & tt & tal & kur1)
MsgBox "Folder already exists!"
Exit Sub

NoFolder:
fso.Createfolder "c:\" & tt & tal & kur1
....

 

[Guest]

Thanks
its working

Alvin


"K Dales" skrev:

fso.GetFolder("c:\" & tt & tal & kur1) returns an error if the foler does not
exist, so,

On Error goto NoFolder

Set FolderObj = fso.GetFolder("c:\" & tt & tal & kur1)
MsgBox "Folder already exists!"
Exit Sub

NoFolder:
fso.Createfolder "c:\" & tt & tal & kur1
...