ورود فايل به اكسس بدون پسوند فايل !!

[amiralex]

سلام به همه دوستان و استادان

من يه سوالي دارم... در واقع يه مشكلي در برنامه ايي كه توسط اكسس نوشتم بهش برخورد كردم

سوالم اينه فرض كنيد من بخوام يه فايل تكست را وارد كنم راهش و هم بلدم و از طريق كد زير اين كار رو ميكنم و مشكلي از اين بابت نيست


strPath = Application.CurrentProject.Path & "\Amir.txt"
DoCmd.TransferText acImport, acSpreadsheetTypetxt, "SP-M", strPath, True

حالا سوالم اينه من ميخوام فايل تكست من اگه بدون پسوند txt هم بود برنامه ارور نده و اون رو وارد كنه. يعني در قسمت
Strpath به اينصورت باشه

strPath = Application.CurrentProject.Path & "\Amir "


اگه راهي وجود داره لطفا دوستان كمك كنن.
يا هر طريقي كه بشه بدون پسوند اين فايل رو وارد كرد.
ممنونم.

[amiralex]

كسي از دوستان نيس جواب بده؟؟

در تكميل سوالم بايد بگم فايلي كه ميخوام وارد كنم يه فايل تكست هست ولي بنا بر دلايلي موقع ساخت اون فايل چون پسوندش رو وراد نميكنم ميخوام بدون پسوند هم هم اون فايل توسط اكسس شناسايي بشه و از طريق اون كد بالا وارد بشه

ممنونم از همتون

[RESMAILY]

به نام خدا
با سلام. يعني اينطوري نمي شود باشد؟

strName ="\Amir "

strPath = Application.CurrentProject.Path & strName & ".txt"

[Abbas Amiri]

سلام . احتمالا باید از فایل مورد نظر یک کپی با پسوند txt ایجاد و سپس باقی عملیات .



strPath = Application.CurrentProject.Path & "\Amir"
FileCopy strPath,strPath & ".txt"
DoCmd.TransferText acImport, acSpreadsheetTypetxt, "SP-M", strPath & ".txt", True

[amiralex]

دوست عزيز از پاسخ هاتون ممنونم.
در واقع من نميخوام از فايل txt كپي بگيرم و پسوند اونو تغيير بدم. ميخوام بدون تغيير اين كار انجام بشه.

[amiralex]

آقاي اميري ازتون ممنونم بسيار راه حل شما مفيد واقع شد البته يه خط كد ديگه هم احتياج داشت كه اضافه كردم چون Strpath دوم رو نميشناخت ارور ميداد با اجازتون به اينصورت تغييرش دادم.

strPath = Application.CurrentProject.Path & "\amir"
FileCopy strPath, strPath & ".txt"
strPath = Application.CurrentProject.Path & "\amir.txt"
DoCmd.TransferText acImport, acSpreadsheetTypetxt, "amir", strPath, True

[amiralex]

من در همين رابطه مشكلم حل شد فقط يه سوال در ادامه همين موضوع دارم كه اگه كمكم كنيد ممنون ميشم
سوالم اينه اگه من اون فايل بدون پسوند و از طريق دكمه بروز كه تو فرمم دارم وارد كنم و در يه كادر مسير فايل انتخاب شده بعنوان Strpath باشه چطور ميتونم عمليات بالا رو انجام بدم كد من الان به اين صورته

strPath = Me.tbFile
DoCmd.TransferText acImport, acSpreadsheetTypetxt, "Sp-M", strPath, True


يعني با اين كد آقاي اميري كه به اينصورت ميشه بقيش چطور انجام ميشه


strPath = Me.tbFile

FileCopy strPath, strPath & ".txt"

در اين قسمت چي بايد بنويسم كه Strpath در خط بعدي شناسايي بشه و ارور نده؟

DoCmd.TransferText acImport, acSpreadsheetTypetxt, "Sp-M", strPath, True

[amiralex]

يكي از دوستان اگه جواب بدن ممنون ميشم.؟؟؟؟؟؟

[Abbas Amiri]

باسلام
کد ارسالی توسط اینجانب نباید خطا داشته باشد ، امتحان کردم مشکلی نداشت
بجای آن قسمت آبی رنگ هم لازم نیست چیزی بنویسید کافیست خط آخر را تغییر دهید
DoCmd.TransferText acImport, acSpreadsheetTypetxt, "Sp-M", strPath & ".txt", True

[RESMAILY]

به نام خدا
با سلام. (با پوزش از آقاي اميري) اميرالكس جان! ماشاله حواس پرتي ها! خلاصه اش اين است كه اين "txt" عليه ما عليه را بگيريد و داخل برنامه هرجا كه لازم بود با يك "." در انتهاي آن فايل لاكردار اضافه بفرماييد ديگر.