Visual Basic 6 - aprire o cancellare un file

Forum - Visual Basic 6 - aprire o cancellare un file

Pagine: [ 1 2 3 4 5 6 ]

mad hacker (Normal User)
Pro

Messaggi: 61
Iscritto: 04/02/2008

Postato alle 21:26
Venerdì, 08/02/2008

vi pongo un'ennesima questione... :rotfl:

se io voglio cancellare un file in modo da farmi apparire una finestra davanti in cui scrivo il percorso del file da cancellare come posso fare?! :-?

per ora ho fatto solo questo ma nn funziona :-o

Codice sorgente - presumibilmente Delphi

Private Sub Command2_Click()
Dim FILE As String
Dim risp As String
FILE = InputBox("Inserire il percorso del file da eliminare:", Me.Caption)
risp = MsgBox("Sei sicuro di voler cancellare questa cartella?", vbQuestion + vbYesNo)
If FILE = yes Then Delete Else Unload Me
End Sub

Ultima modifica effettuata da mad hacker il 15/02/2008 alle 21:50

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 21:28
Venerdì, 08/02/2008

File = Delete

???

ma dove le leggi queste cose?

Per programmare non si va a caso, ma si studia il linguaggio ....

Esiste l'istruzione

Kill nomefile

per cancellare un file da VB6

mad hacker (Normal User)
Pro

Messaggi: 61
Iscritto: 04/02/2008

Postato alle 21:29
Venerdì, 08/02/2008

quindi invece di delete devo scrivere kill?

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 21:31
Venerdì, 08/02/2008

Mi pareva di essere stato chiaro ... ho scritto che l'istruzione e'

Kill nomefile

Ma perche' non compri un libro di base per la programmazione e lo studi?

mad hacker (Normal User)
Pro

Messaggi: 61
Iscritto: 04/02/2008

Postato alle 21:33
Venerdì, 08/02/2008

però con l'istruzione kill devo scrivere io solo un percorso affinchè lo cancelli!!
io voglio scrivere il percorso nella finestra ke ti appare (con il codice ke ho scritto io) per poi cancellarlo!! :-|

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 21:45
Venerdì, 08/02/2008

Testo quotato

Private Sub Command2_Click()
  Dim File As String
  Dim risp As String
  File = InputBox("Inserire il percorso del file da eliminare:", Me.Caption)
  risp = MsgBox("Sei sicuro di voler cancellare questa cartella?", vbQuestion + vbYesNo)
  If risp= vbYes Then Kill File
End Sub

mad hacker (Normal User)
Pro

Messaggi: 61
Iscritto: 04/02/2008

Postato alle 21:52
Venerdì, 08/02/2008

avevo già inserito questo codice

Codice sorgente - presumibilmente Delphi

Private Sub Command2_Click()
Dim File As String
Dim risp As String
File = InputBox("Inserire il percorso del file da eliminare:", Me.Caption)
risp = MsgBox("Sei sicuro di voler cancellare questa cartella?", vbQuestion + vbYesNo)
If risp = vbYes Then Kill File
End Sub

ma mi fa

run-time error '53'
e poi mi evidenzia kill file

[edit] Usate il tag CODE! [/edit]

Ultima modifica effettuata da Shutdown il 15/02/2008 alle 21:58

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 22:34
Venerdì, 08/02/2008

error run time 53: file not found

evidentemente hai scritto male il nome del file
assicurati che sia scritto correttamente e col percorso assoluto (dal disco di origine fino al nome del file compresa l'estensione) e che lo slash sia questo \

mad hacker (Normal User)
Pro

Messaggi: 61
Iscritto: 04/02/2008

Postato alle 22:40
Venerdì, 08/02/2008

mi ero dimenticato di scrivere l'estensione..cmq
grazie di avermi aiutato.. :k:

Pagine: [ 1 2 3 4 5 6 ]