Avatar billede yuksel Nybegynder
09. maj 2005 - 09:27 Der er 6 kommentarer og
1 løsning

valg af åben fil hvis der er 2

Hej.

I min program er det sådan at jeg ved et klik skal kunne importere ting fra et xml dokument, og det kan jeg godt.
Men det er sådan at nogle gange kan der være 2 filer hvor jeg vil give brugeren mullighed for valg !

jeg har prøvet med noget openDialog :

StrFilter = dlg.AddFilterItem(StrFilter, "main (*.xml)", "main*.xml")

'opendialog viser her
dlg.DialogTitle = "vælg fil"
dlg.filter = StrFilter
dlg.ShowOpen
filnavn = dlg.Filename


men denne kode giver brugeren et valg hvergang, og det skal det ikke være, for det er ikke altid at vi har 2 main filer, det er sjældent.
navngivning af main filer er således : "Main.xml" og "Main1.xml"

jeg derfor lavet noget andet kode:
filnavn = "C:\Test\Side\" & nummer & "\Main.xml"
så får jeg altid fat i Main.Xml men jeg mangler den der valg hvis der nu skulle eksistere en Main1.Xml ?

er der nogen der kan hjælpe ?
Avatar billede terry Ekspert
09. maj 2005 - 09:35 #1
you can use the following link to see if a file or directory exists
http://www.mvps.org/access/modules/mdl0009.htm
Avatar billede terry Ekspert
09. maj 2005 - 09:39 #2
you can also use

If Len(Dir("C:\Test\Side\" & nummer & "\Main1.xml"
)) > 0 Then
....
Avatar billede yuksel Nybegynder
09. maj 2005 - 11:34 #3
jeg har en filter som ser sådan ud
StrFilter = dlg.AddFilterItem(StrFilter, "main (*.xml)", "main*.xml"
og det bivirker at jeg ikke kan se main1.xml, jeg har prøvet at tilføje main1.xml uden held  :(

funktionen ser sådan ud
Public Function AddFilterItem(StrFilter As String, _
    strDescription As String, Optional varItem As Variant) As String

    If IsMissing(varItem) Then varItem = "*.*"
    AddFilterItem = StrFilter & _
                strDescription & vbNullChar & _
                varItem & vbNullChar
End Function
Avatar billede yuksel Nybegynder
09. maj 2005 - 11:34 #4
det er sådan:
StrFilter = dlg.AddFilterItem(StrFilter, "main (*.xml)", "main*.xml")
Avatar billede yuksel Nybegynder
09. maj 2005 - 12:08 #5
har fikset det, Takker for hjælpen . :)
Avatar billede terry Ekspert
09. maj 2005 - 12:09 #6
This works. I can see main.xml and main1.xml

dlg.Filter = "Main (main*.xml)|main*.xml"
Avatar billede terry Ekspert
09. maj 2005 - 12:10 #7
OK, selv tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester