Utilizzo il codice seguente per creare una directory prelevando il nome
da una cella del foglio.
Ora subito dopo vorrei aprirla ma non riesco a capire quale sia la sintassi corretta
per valorizzare la stringa e fargli aprire la directory.
Public Sub m()
Dim objFso As Object
Dim objFolder As Object
Dim NomeFileCommessa As String
Dim sPathTI As String
Dim xCartellaTI As String
sPathTI = "C:\Users\daniele\Desktop"
NomeFileCommessa = ActiveSheet.Range("A1").Value
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FolderExists(sPathTI & "\" & NomeFileCommessa) Then
MsgBox "La cartella esiste"
Else
MsgBox "La cartella non esiste"
Set objFolder = objFso.CreateFolder(sPathTI & "\" & NomeFileCommessa)
MsgBox "La cartella è stata creata"
End If
'Apro la cartella appena creata
xCartellaTI = "sPathTI & " \ " & NomeFileCommessa & " \ "" '<===== SI BLOCCA QUì E NON SO COME EVITARLO
If Len(Dir(xCartellaTI, vbDirectory)) <> 0 Then
Shell "Explorer.exe /n,/e," & xCartellaTI, vbNormalFocus
Else
MsgBox "La cartella non esiste!", vbCritical
End If
Set objFolder = Nothing
Set objFso = Nothing
End Sub
Aiutoooooooooo