CRIAR PASTA NO DESKTOP

ERINALDO 28/07/2016 17:14:28
#465221

Adapte em seu sistema a rotina a seguir:

Dim Diretorio
Diretorio = Dir(App.Path & [Ô]\Backups[Ô], vbDirectory) [ô] Seta o valor da variável
If Diretorio = Empty Then [ô] Verifica se o diretório existe
If MsgBox(App.Path & [Ô]\Backups[Ô] & [Ô] Não existe !!![Ô] + vbCrLf + _
[Ô]Deseja criá-lo ?[Ô], vbYesNo) = vbYes Then
MkDir (App.Path & [Ô]\Backups[Ô]) [ô] cria a pasta
Else
Exit Sub
End If
Else
[ô] Sua Rotina
End If

ANDERSONHELP 28/07/2016 19:13:02
#465224

infelizmente isso nao funciona para o meu caso!
mas agradeço do mesmo jeito sua ajuda

FABRICIOWEB 28/07/2016 19:13:32
#465225 Resposta escolhida

jeito facil

Set WshShell = CreateObject([Ô]WScript.Shell[Ô])
strDesktopPath = WshShell.SpecialFolders([Ô]Desktop[Ô])

If Dir(strDesktopPath & [Ô]\pasta[Ô], vbDirectory) = [Ô][Ô] Then
MkDir strDesktopPath & [Ô]\pasta[Ô]
Else
End If

FABRICIOWEB 28/07/2016 19:20:16
#465226

Se você quiser criar um atalho da pasta faça assim

Set WshShell = CreateObject([Ô]WScript.Shell[Ô])

strDesktopPath = WshShell.SpecialFolders([Ô]Desktop[Ô])
Set objShortcutLnk = WshShell.CreateShortcut(strDesktopPath & [Ô]\seu atalho.lnk[Ô])

objShortcutLnk.TargetPath = [Ô]o caminho da sua pasta[Ô]
objShortcutLnk.Save

ANDERSONHELP 28/07/2016 19:38:59
#465227

Fabricio, aqui no meu windows 7 funcionou certinho, isso ira funcionar para qualquer outro sistema operacional?

FABRICIOWEB 28/07/2016 20:08:18
#465229

nos novos sim agora do xp para baixo não sei
se tiver resolvido ae pontua ae vlw brother