Visual Basic 6 - Determinare e copiare una cartella

Forum - Visual Basic 6 - Determinare e copiare una cartella

fa1212 (Normal User)
Pro

Messaggi: 101
Iscritto: 09/10/2008

Postato alle 19:23
Martedì, 21/10/2008

Ok salve a tutti mi dispiace disturbarvi per ogni minimo problema ma fino a quando non avrò trovato una guida decente sul vB sarò costretto a chiedere aiuto a voi (conoscete una buona guida sul VB?)

Comunque ecco il mio problema:
1) devo fare un programma che determina l'esitenza di ua cartella (se esiste passa al passaggio 2) sennò la crea in una determinata posizione.
2) poi ogniqualvolta viene inserita una penna USB tutto il contenuto della penna viene copiato in quella cartella. potendo verificare che il contenuto usb stia nell'hard disk

--------------------------------------------------
secondo problema come posso dare all'utente la possibilità di far avviare il mio programma con windows (es. copiandolo in esecuzione automatica)??

Grazie in anticipo per le risposte!

Ultima modifica effettuata da fa1212 il 21/10/2008 alle 19:25

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 1:07
Mercoledì, 22/10/2008

per il secondo problema basta che aggiungi il percoso del tuo programma al registro di sitema sotto la voce HKLM(o HKCU dipende se vuoi che parta solo per l'utente in cui stai lavorando o in generico sempre sulla macchina)/software/microsoft/windows/currentversion/run

ci sono diversi codici per farlo sia qui che su internet, come esistono pure diverse chiavi di avviamento.
questa e` quella standard usata anche per programmi non nocivi.

Ultima modifica effettuata da P4p3r0g4 il 22/10/2008 alle 1:10

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:27
Mercoledì, 22/10/2008

Per il primo problema eccoti una funzione che sfrutta il fie system object:

Codice sorgente - presumibilmente VB.NET

Public Function FolderExists(strPath As String) As Boolean
Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  FolderExists = fso.FolderExists(strPath)
Set fso = Nothing
End Function

Per la guida in vb prova questa:
http://trj.altervista.org/A_scuola_con_Visual_Basic.pdf
N.B. Copia il link e apri una nuova finestra e incollalo e vacci, altrimenti se klikki sul link ti dirotta su altervista.org

Altra cosa importante è ke la guida è hostata su un mio spazio quindi poi più in là se ne ho la necessità la leverò quindi se la guida ti interessa ti conviene salvarla.... :k:

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 16:33
Mercoledì, 22/10/2008

sai che sono un idiota?
quando ho risposto, ho messo prima la soluzione al primo problema e poi la seconda al secondo pensando di aver fatto 2 post diversi.
ma invece di fare reply ho fatto edit e ho cancellato la prima.
si puo essere piu idioti?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:08
Mercoledì, 22/10/2008

Testo quotato

Postato originariamente da P4p3r0g4:

sai che sono un idiota?
quando ho risposto, ho messo prima la soluzione al primo problema e poi la seconda al secondo pensando di aver fatto 2 post diversi.
ma invece di fare reply ho fatto edit e ho cancellato la prima.
si puo essere piu idioti?

No e per questo dovrai subire ripetute vivisezioni con punteruoli e bisturi arrugginiti sapendo che verrai suturato senza anestesia con un amo da pesca poco appuntito.

:rotfl:

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 0:57
Giovedì, 23/10/2008

lol, me la sono cercata.