VB if exists

[Ronald_stage]

ik heb nu de code

code:

Private Sub Command3_Click()
FileCopy Dir1.Path & "\" & File1.FileName, "\\10.205.50.50\Project\d\recent\" & File1.FileName
End Sub

als er nu op Command3 wordt gedrukt terwijl er geen bestand is geselecteerd, krijg je een fout melding en wordt het programma afgesloten

nu probeer ik voor elkaar te krijgen dat als er geen bestand is geslecteerd dat er inplaats van een copy een MsgBox komt met een melding

ik denk dat de code ongeveer dit moet zijn

code:

Private Sub Command3_Click()
If File1.FileName = "" Then MsgBox "u moet een bestand selecteren."
Else
FileCopy Dir1.Path & "\" & File1.FileName, "\\10.205.50.50\Project\d\recent\" & File1.FileName
End If
End Sub

maar ik weet het niet precies, want dit werkt niet

BvD
R.

[Mart!]

Kijk eens naar het FileSystemObject in VB. Hierin zit een method waarmee je kan controleren of een file bestaat. Dit is een nogal standaardvraag --> Bijna alle file handling kun je dmv het FileSystemObject doen

[Ronald_stage]

is het mischien ook mogelijk met

If Err Then MsgBox "U moet een bestand selecteren"
End If
End Sub

???
Want ik hou het liever bij FileCopy

--edit--
BTW ik hbe een x aantal search-jes gedaan en niets gevonden
zo standaard is ie ook weer niet.

[Bu588]

Kan het niet met

code:

If IsNull(filenaam) Then
    Msgbox "U dient eerst een bestand te selecteren."
Else
    Filecopy etc...
End If

?

[mulder]

Heeft de FileBox geen SelCount of Selected property?

[Ronald_stage]

code:

If IsNull(File1.FileName) Then MsgBox "Blaat"
Else
FileCopy Dir1.Path & "\" & File1.FileName, DoelLocatie
End If
End Sub

Compile error:
Else Without If

Das dus nie goe

[Bu588]

After 'Then' moet je een nieuwe regel beginnen (dan krijg je een blok If), of alles op 1 regel zetten
Dus:

code:

If .... Then
   actie
Else
   alternatief
End If

Óf:

code:

If .... Then .... Else ......

Die laatste heeft dus geen End If achteraan staan.

[Crazy D]

Pff sorry hoor, maar da's wel een beetje basiskennis cq. even de moeite nemen om de helpfile te bekijken.
(en als je intellisence werkt ("dropdown lijstje als je file1. intypt) kun je daar ook even rondkijken).
ListIndex property. -1 is niets geselecteerd, anders is het de index van de geselecteerde item (duh).
Enals multiselect aanstaat geeft listindex ik meen het item van de "als laatste geselecteerde" aan, en kun je met .Selected(nummertje) opvragen of een item geselecteerd is of niet.

[Ronald_stage]

Ja dat is het probleem mijn HelpFile van MSDN is stuk.

[Ronald_stage]

dus

code:

Private Sub Command3_Click()
If IsNull(File1.FileName) Then MsgBox "Blaat" Else FileCopy Dir1.Path & "\" & File1.FileName, "\\10.205.50.50\Project\d\recent\" & File1.FileName
End Sub

of

code:

Private Sub Command3_Click()
If IsNull(File1.FileName) Then
MsgBox "Blaat"
Else: FileCopy Dir1.Path & "\" & File1.FileName, "\\10.205.50.50\Project\d\recent\" & File1.FileName
End Sub

zou moeten werken...

niet dus

[Crazy D]

Op woensdag 23 januari 2002 13:45 schreef Ronald_stage het volgende:
Ja dat is het probleem mijn HelpFile van MSDN is stuk.

Dan is er altijd nog MSDN Online op de site van onze geliefde microsoft.
Maar ik snap het probleem ondertussen niet meer, ik heb nl. de oplossing al gegeven.

[Verwijderd]

.FileName wordt toch leeg ("") en niet Null, dus moet je testen.

code:

If File1.FileName = "" Then
...

[Ronald_stage]

code:

Private Sub Command3_Click()
If File1.FileName = "" Then
MsgBox "Blaat"
Else: FileCopy Dir1.Path & "\" & File1.FileName, "\\10.205.50.50\Project\d\recent\" & File1.FileName
End If
End Sub

werkt perfect, dank jullie allen
PS zal een van jullie genomineert worden voor LiteMod,
ik bedoel wie wil er een stem?