INTEGRATION: CWS draw18 (1.35.12); FILE MERGED

2003/06/18 09:43:34 bc 1.35.12.1: #110221# documents now always saved in target path

wizards/source/importwizard/FilesModul.xba

@@ -67,6 +67,7 @@ Dim bAssignFileName as Boolean
 							ReadCollectionPaths() = False
 							Exit Function
 						End If
+						CurFileContent = ""
 						CurFileName = NewList(n,0)													
 						If NewList(n,1) = "vor" Then
 							CurFileContent = GetRealFileContent(oDocInfo, CurFileName)
@@ -83,6 +84,9 @@ Dim bAssignFileName as Boolean
 								a = a + 1
 								NewList(a,0) = CurFileName
 								NewList(a,1) = CurExtension
+								If CurFileContent = "" Then
+									CurFileContent = CurExtension
+								End If
 								ApplIndex = GetApplicationIndex(CurFileContent, sFiltername())
 								NewContentList(a) = ApplIndex
 							End If