[code]
'you must have VB6 for this to work

'if you don't need the \\ then use the replace function
'no checking involved.
'as it's written you can't check it because you execute the
'MKdir on assembly of the variable so we need to add one string var

Dim strDirPreview As String

If strResFolder <> "" Then
strDirPreview = strResFolder
strDirPreview = Replace(strDirPreview, ":\\", ":\")
strResFolder = strDriPreview
MkDir strResFolder & "\" & x

'voila whatever:\\ is changed to whatever:\
[code]