Creazione Directory

Hai un problema con Excel?

Nuova discussione

Creazione Directory
di Sinthoras (utente non iscritto) data: 13/04/2016 16:09:14
Avrei bisogno di una macro che mi permetta di creare in C: una directory che si chiama "Prova_1" e che se esiste già comunque non dia errore e non si blocchi.
Che mi permetta poi, una volta creata la directory, di creare un file "Prova_testo.txt" e che se esiste già mi dia la possibilità di crearne un altro con stesso nome ma chiamandolo tipo "Prova_test2".

di patel data: 13/04/2016 17:21:22
per creare una cartella

Sub CreateFolderForFiles()
strPath = "C:Prova_1"
If Dir(strPath, vbDirectory) = vbNullString Then MkDir strPath
End Sub

di patel data: 13/04/2016 17:36:47
per creare il file

Sub CreaFile2()
  Set fs = CreateObject("Scripting.FileSystemObject")
  fname = "pippo.txt"
  fname = "C:" & fname
  FileInQuestion = Dir(fname)
  If FileInQuestion <> "" Then fname = Left(fname, Len(fname) - 4) & "2.txt"
    Set a = fs.CreateTextFile(fname, True)
    a.Close
End Sub

di Sinthoras (utente non iscritto) data: 21/04/2016 11:59:48
tutto apposto...grazie ancora e scusate il ritardo nella risposta.

Vuoi Approfondire?