VB6 (lavorare con i file di testo)

[gighen99]

Ciao a tutti... ho un bel problema...
non ho mai lavorato con file di testo e devo creare un programma che lavora proprio con essi.
Per prima cosa devo copiare un file da una cartella in un altra (qualcuno sà i comandi???)
Poi devo aprire il file, leggere la prima riga ed a seconda dell'intestazione aprire in append un file al posto di un altro... ed infine, a seconda del primo campo di ogni riga devo "append"are la stessa su di un altro file....
HELP HELP HELP...
Qualcuno sa anche qualche piccolo comando? Grazie anticipatamente x l'aiuto.

[gighen99]

Qualcuno sa anche se è possibile in VB6 trascinare + file da una qualsiasi finestra windows dentro un programma vb in modo tale da memorizzare tali nomi di file?? Se qualcuno lo sa... grazie ancora!!!!!

[Mabi]

Per copiare un file:

Dim FileOrig As String
Dim FileDest As String

FileOrig = "C:\PROVA.txt"
FileDest = "C:\XXX\PROVA.txt"

FileCopy FileOrig, FileDest
SetAttr FileDest, GetAttr(FileOrig)

Per leggere ogni riga di un file e scriverla di seguito in un altro:

Dim FileOrig As String
Dim FileDest As String
Dim Riga As String

FileOrig = "C:\PROVA.txt"
FileDest = "C:\XXX\PROVA2.txt"
Open FileOrig For Input As #1
  Open FileDest For Append As #2
    Do Until EOF(1)
      Line Input #1, Riga
      Print #2, Riga
    Loop
  Close #2
Close #1

Per il resto non ho capito cosa devi fare.

[gighen99]

Non mi sono spiegato bene...
come si crea una cartella??
e soprattutto... esiste un metodo x selezionare + file da processare simultaneamente?
Ripeto e mi spiace... sono completamente nuovo del lavoro con le stringhe ed i file...
cmq grazie ancora:gren:

[gighen99]

Scusate se rompo ancora... ma... esiste un modo x vedere se esiste una cartella e/o se esiste un file???? Grazie!!!!

[xegallo]

Originariamente inviato da gighen99
Non mi sono spiegato bene...
come si crea una cartella??
e soprattutto... esiste un metodo x selezionare + file da processare simultaneamente?
Ripeto e mi spiace... sono completamente nuovo del lavoro con le stringhe ed i file...
cmq grazie ancora:gren:

per creare una cartella basta usare mkdir
simultaneamente no a meno che non usi + trhead
uno di seguito all'altro si

sub Processa(paramarray Paths() as variant)
   dim i as integer
   for i = lbound(Paths) to Ubounds(Paths)
      Open Paths(i)for ...
      'quello che vuoi fare
   next i
end sub

[gighen99]

ma x creare una sola cartella da un programma... quale è il codice?? come lo inserisco mkdir??? e come faccio a controllare se già esiste o no???

x controllare invece l'esistenza di un file... lo apro in input, e se mi restituisce errore, gestisco l'errore?? Oppure c'è qualcosa di più diretto?

[xegallo]

1)

Public Function IsDirExist(ByVal strPathName As String) As Boolean
    'Determinare se esiste una directory
    Dim fs As New Scripting.FileSystemObject
    IsDirExist = fs.FolderExists(strPathName)
    Set fs = Nothing
End Function

2) scrivi mkdir e il percorso
mkdir "C:\xegallo"

3)la funzione dir

if dir("c:\Autoexec.bat")then
   msgbox "te ne sei accorto che windows è partito"
else
   msgbox "reistalla Windows, subito!:D"
end if

[optime]

per tutte le tue esigenze puoi usare FSO. info qui http://msdn.microsoft.com/library/de...FileSystem.asp

[gighen99]

Grazie a tutti... ho risolto praticamente tutto tranne una cosa...
io x scrivere i dati dentro al file uso

Print #2, campo1, campo2, campo3

il problema è che nel file vengono si immessi i dati, ma non sono messi tra "" e non sono separati da virgole (mentre nel file di origine ci sono). Come posso fare? ho sbagliato qualcosa?

Ed un'ultima cosa... che librerie bisogna attivare x quella function che mi hai dato tu x vedere se esistono le directory??