Finns där något bra sätt att få bort föbjudna tecken.

Jag har en excel fil som skapar mappar, mappnamnen hämtas från filen. Jag vill nu bara plocka bort de tecken som windows inte tillåter i ett fil och mappnamn, men jag vill behålla "\" för att kunna göra fler undermappar. Jag vill även att när tecknet "\" dycker upp mer än engång så skall mapparna hamna med tex Material\Batteri\Ljuskällor.

<li>Material
<ul>
<li>Batteri
<li>Ljuskällor
</ul>

Så jag vill att Batteri och Ljuskällor hamnar brevid varandra i mappen Material och inte under varandra

Hej, om jag förstått dig rätt så löser nedanstående procedur ditt problem, den är slarvigt ihopsläng och skulle kunna skrivas snyggare, kompaktare och med färre variabler men gjorde så här för att koden skulle vara tydlig...

Vänligen Anders Svensson


Sub Trimma()

Dim strSökväg As String
Dim strNySökväg As String
Dim strTecken As String
Dim intStränglängd As Integer
Dim intRäknare As Integer

'Har valt att skriva in sökvägen i Cell F10
strSökväg = Range("F10")
intStränglängd = Len(strSökväg)

For intRäknare = 1 To intStränglängd
strTecken = Mid(strSökväg, intRäknare, 1)
Select Case strTecken
' Lägg till de tecken du vill "förbjuda" nedan
Case "?" '
Case "!"
Case "+"
Case ":"
Case "&"
' Här skapas den nya sökvägen om tecknet inte är något av de ovanstående
Case Else
strNySökväg = strNySökväg & strTecken
End Select

Next

MsgBox (strNySökväg)

End Sub

Det blir rätt många Select Case finns där inte ett bättre sätt

Du kan använda ett regular expression för att rensa bort de oönskade tecknen:

<code>With new RegExp
.Global = True
.Pattern = "[\?\\\.:]"
strPath = .Replace(strPath, "")
End With</code>

Kanon precise vad jag letade efter tackar.