Supportnet / Forum / Datenbanken

Hallo zusammen, ich brauch wieder einmal eure Hilfe. Ich habe ein Formular, über das ich über einen Button in einen Windows-Ordner springen und dort dann Bilder abzuspeichern bzw. anzusehen kann. Der Computer springt automatisch in den Ordner, der den gleichen Namen des Datensatz hat. Der Datensatz besitzt eine QM-Nr. und der Ordner wird gleich genannt. Die QM-Nr. ist wie folgt aufgebaut: Zuerst die „08“ für das aktuelle Jahr und dann die „001“, „002“, „003“… für den Auftrag; Folglich also „08001“, „08002“, 08003“ Bis jetzt funktioniert auch alles wunderbar, doch nun soll ich einen Altbestand von ca. 1000 Ordnern einbinden, deren Namen zwar mit der QM-Nr. beginnen aber danach noch etwas folgt (z.B. „01005 Pleuel“ ). Mein jetziger Code ist: [code]Private Sub Befehl37_Click() Dim Pfad As String Pfad = "D:\Tobias\" & Me.QM_Nr If Dir(Pfad, vbDirectory) <> "" Then Me.Application.FollowHyperlink Pfad Else MkDir (Pfad) Me.Application.FollowHyperlink Pfad End If End Sub[/code] Gibt es eine Möglichkeit, dass der Computer nicht den kompletten Ordnernamen vergleicht sondern nur die ersten fünf Stellen heranzieht?? Bitte um eure Hilfe. Schon mal Danke. Gruß Tobias PS:Ich verwende Access 07

Hallo,
falls es jemanden interesiert, ich habe mein Problem mit folgendem Code gelöst:

Public Function BilderOrdnerSuchenOeffnen()
Dim Pfad As String
Dim PfadUndOrdner As String
Dim Ordner As String

Pfad = DLookup("pfad", "aageji_pfade", "pfadid = 60")
PfadUndOrdner = Pfad & Forms!frmstammdaten![QM-Nr] & "*"

If Dir(PfadUndOrdner, vbDirectory) <> "" Then
Ordner = Dir(PfadUndOrdner, vbDirectory)
Shell "explorer.exe " & Pfad & Ordner, vbNormalFocus
Else
MkDir (Pfad & Forms!frmstammdaten.[QM-Nr])
Forms!frmstammdaten.Application.FollowHyperlink (Pfad & Forms!frmstammdaten.[QM-Nr])
End If
End Function

Gruß Tobias

• Ordnername wird nicht mehr angezeigt
• Ordnernamen im Arbeitsplatz formatieren?
• Umbenennen von Dateien zum Ordnernamen
• Prüfen ob Ordner bereits existiert
• Javaentwicklung und XP