Newsgroup: it.comp.lang.visual-basic
Titolo: [?] File gia' presente

Salve a tutti,
Il mio problema e' il seguente:
Ho una textbox dove va scritto il nome del file da salvare ed ovviamente un
commandbutton.
Vorrei fare in modo che quando schiaccio il commandbutton, nel caso in cui
il nome del file che ho inserito sia gia' presente, uscisse una MsgBox che
mi avvisa che un file con quel nome gia' esiste. Avete quache idea?
Ciao e Grazie.

> Zuril:

Option Explicit
Private Function FileExists( _
  ByVal FullFileName As String _
) As Boolean
  FileExists = Len(Dir$(FullFileName))
End Function
Private Sub SaveFile( _
  ByVal FullFileName As String _
)
  Dim blnSave As Boolean
  blnSave = True
  If FileExists(FullFileName:=FullFileName) _
  Then _
    blnSave _
      = MsgBox( _
            Prompt:= _
                "Il file" _
              & " '" & FullFileName & "'" _
              & " esiste gia`." & vbLf & vbLf _
              & "Vuoi sostituirlo?" _
          , Buttons:=vbExclamation + vbOKCancel _
          ) = vbOK
  If blnSave Then
    Screen.MousePointer = vbHourglass
    <...>
    Screen.MousePointer = vbDefault
  End If
End Sub
Private Sub Command1_Click( _
)
  Command1.Enabled = False
  SaveFile FullFileName:=Text1.Text
  DoEvents
  Command1.Enabled = True
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 wrote in message
news:99i6b9$rr7$1...@fe2.cs.interbusiness.it...

if dir$(myfile) > "" then msgbox myfile & " esiste già"

>  FileExists = Len(Dir$(FullFileName))
non mi sembra un granchè
io userei FindFirstFile, serve proprio a questo
-- 
Posted from 
smtp.technorail.com
 [195.103.144.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 io userei FindFirstFile, serve proprio a questo
Esibizionista! Richiudi subito quell'impermiabile!
--
Ciao :-)


Esibizionista! Richiudi subito quell'impermiabile!
rotfl
ciao, hal

 Grazie a tutti per l'aiuto. Ho risolto il problema adattando alle mie
esigenze il codice di Maurizio Borrelli:
 Il codice funziona perfettamente, ma se avete dei consigli per migliorarlo,
sono ben accetti.
Ciao e grazie 1000 a tutti!
' Inizio codice
Private Function FileExists( _
  ByVal FullFileName As String _
) As Boolean
  FileExists = Len(Dir$(FullFileName))
End Function
___________________________________________________________________________
Public Sub WriteList(List As ListBox, Filename As String)
On Error GoTo err
If FileExists(Filename) = False Then
Open Filename For Output As #1
Dim i
  For i = 0 To List.ListCount - 1
           Print #1, List1.List(i)
       Next
Close #1
  Exit Sub
Else
 If MsgBox("Il file " + Filename + " è già presente, sostiuire?", vbYesNo) =
vbYes Then
 Open Filename For Output As #1
    For i = 0 To List.ListCount - 1
           Print #1, List1.List(i)
       Next
Close #1
  Exit Sub
        Else
MsgBox (" Inserisci un altro nome per salvare la lista corrente")
 Command5.Enabled = True
Command8_Click
Command5_Click
 Exit Sub
End If
End If
err:
MsgBox "Errore di scrittura" & Chr(13) & Chr(13) & err.Number _
       & " - " & err.Description, vbCritical, "Error"
       Exit Sub
 End Sub
___________________________________________________________________________

sono ben accetti.
Direi che il più semplice da implementare è quello proposto da Sal Cimmino,
con una piccola variazione:
if Len(dir$(myfile)) > 0 then msgbox myfile & " esiste già"
Attenzione che myfile deve essere completo di percorso e nome del file o
potrebbe non funzionare correttamente.
Ciao

>Esibizionista! Richiudi subito quell'impermiabile!
hihihihihi
c'è chi può e chi no :)
(chi ha paura dell'API cattiva?)


 (chi ha paura dell'API cattiva?)
Chi va in giro con piu` centimetri quadrati di pelle scoperta, suppongo.


        Exit Sub
Questo Exit Sub non e` piu` necessario.


Grazie per gli ottimi consigli, cerchero' di metterli in pratica subito.
Ciao.