title image


Smiley Probier's mal so !!!
Option Compare DatabaseOption ExplicitGlobal Gesamt, File, Datei, DPfad As String 'Wichtig, diese Variablen müssen Global sein , sonst bekommst du Public Type OPENFILENAME 'nichts zurück lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Public Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongSub Dateidialog(titel, Pfad As String)Dim Anf As StringDim stelle As IntegerDim OpenFile As OPENFILENAMEDim lReturn As LongDim sFilter As StringDim db As Database'Datei öffnen'Grundvariablen initialisierenstelle = 8 OpenFile.lStructSize = Len(OpenFile) sFilter = "Textdateien (*.txt)" & Chr(0) & "*.*" & Chr(0) OpenFile.lpstrFilter = sFilter OpenFile.nFilterIndex = 1 OpenFile.lpstrFile = String(257, 0) OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1 OpenFile.lpstrFileTitle = OpenFile.lpstrFile OpenFile.nMaxFileTitle = OpenFile.nMaxFile OpenFile.lpstrInitialDir = Pfad 'Initial Pfad OpenFile.lpstrTitle = titel 'Titel des Import Fensters OpenFile.flags = 0 lReturn = GetOpenFileName(OpenFile) If lReturn = 0 Then MsgBox "Bitte File Selektieren !!!", vbInformation, "Info" End Else Gesamt = (Trim(OpenFile.lpstrFile)) End If 'Dateinamen ermitteln Datei = Gesamt While stelle 0 stelle = InStr(Datei, "\") Datei = Mid(Datei, stelle + 1) Wend 'Pfad ermitteln stelle = InStr(Gesamt, Datei) DPfad = Left(Gesamt, stelle - 1)End SubProbier's mal damit !!!! Dann hast du zumindest den Dateinamen und den Pfad,die du dann in eine Tabelle rein schreiben kannst !!!! Aufrufen kannst du die Routine so :sub import()dim sPfas,titel as stringSPfad = "C:\DeinVerz\"titel = "Import_Deine_Meldung"Call Dateidialog(titel, SPfad)End subPS. Ich hab's schnell zusammengeschustert.... könnten kleinere Fehler drinne sein..

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: