orione1976 ha scritto:
Niente, si ostina a non funzionare, su un computer va e in altri no, eppure non faccio nulla di strano.
Private Sub BTNcrea_Click(sender As System.Object, e As System.EventArgs) Handles BTNcrea.Click
If My.Computer.FileSystem.DirectoryExists(Path.Combine(Environment.SpecialFolder.MyDocuments, "CARTELLA")) = False Then
My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\CARTELLA\")
EndIf
niente, non crea nemmeno la cartella
boh? Qualche suggerimento?
aspe.... ora che ci faccio caso meglio mi sembra di vedere qualcosa di strano
nella if usi :
Path.Combine(Environment.SpecialFolder.MyDocuments, "CARTELLA")) = False Then
e per creare la directory invece usi
Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\CARTELLA\"
che sono directory diverse.
Prova scrivendo:
Dim sDir As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "CARTELLA")
If My.Computer.FileSystem.DirectoryExists(sDir) = False Then
My.Computer.FileSystem.CreateDirectory(sDir)
End If
... anzi potresti anche togliere la verifica preventiva dell'esistenza
(
https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.fileio.filesystem.createdirectory?view=netframework-4.7.2)
e scrivere direttamente
Dim sDir As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "CARTELLA")
My.Computer.FileSystem.CreateDirectory(sDir)