نمایش نتایج 1 تا 8 از 8

نام تاپیک: عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

  1. #1
    کاربر جدید آواتار ZAMEN58
    تاریخ عضویت
    اسفند 1396
    محل زندگی
    دهاقان
    پست
    8

    عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

    با سلام
    من برنامه ای دارم که در آن یک تصویر می بایست از پوشه ای دلخواه انتخاب شده و در پوشه ای با نام تجهیز مورد نظر و بعد پوشه ای با نام تاریخ ذخیره شده و نام آن فایل نیز به تاریخ روز + تعداد فایلهای داخل پوشه تغییر کند
    مشکل کار اینجاست که اگر تصویر از پوشه ای با نام فارسی انتخاب شود یا در مسیر تا پوشه نهایی ، پوشه ای با نام فارسی باشد و یا نام فایل انتخابی فارسی باشد ، فایل انتخابی انتقال پیدا نمی کند
    لطفا راهنمایی فرمایید
    متاسفانه چون حجم فایل بسیار زیاد است قادر به پیوست نیستم
    با تشکر


    Dim FSO As Object
    Dim I As Integer
    Dim SplitDir() As String
    Dim CreateDir As String
    Dim strDirectoryPath, strPicturePath, strOldDirectoryPath, strNewDirectoryPath, strOldFileName, strNewFileName, strOldFileType, strNewFileDir, strNodeID, strItemName As String
    Dim strFileCount As Integer
    ItemName1 = ItemName
    NodeID1 = NodeID
    InsertDate1 = InsertDate
    Me.DirectoryPath1 = DirectoryPath
    Forms!frmInsertPicture.Cycle = 0
    DoCmd.GoToRecord , , acNewRec
    DirectoryPath = DirectoryPath1
    ItemName = ItemName1
    NodeID = NodeID1
    InsertDate = InsertDate1
    DirectoryPath1 = DirectoryPath
    strDirectoryPath = DirectoryPath & "\Picture" & InsertDate & ""
    strPicturePath = CurrentProject.Path & "\Picture" & InsertDate & ""
    If IsNull(strDirectoryPath) Or strDirectoryPath = "\Picture" & InsertDate & "" Then
    strDirectoryPath = strPicturePath
    End If
    SplitDir = Split(strDirectoryPath, "")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    I = 0
    For I = LBound(SplitDir()) To UBound(SplitDir())
    If I = 0 Then
    CreateDir = SplitDir(I)
    Else
    CreateDir = CreateDir & "" & SplitDir(I)
    End If
    If FSO.FolderExists(CreateDir) = False Then
    FSO.CreateFolder (CreateDir)
    End If
    Next I
    With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = strPicturePath
    .InitialView = msoFileDialogViewLargeIcons
    .Filters.Clear
    .Filters.add "jpeg", "*.jpg"
    .Filters.add "bitmap", "*.bmp"
    .Filters.add "tiff", "*.tif"
    .Filters.add "GIF", "*.gif"
    .Filters.add "PNG", ".png"
    .Filters.add "All Files", "*.*"
    .FilterIndex = 1
    .AllowMultiSelect = False
    .Title = "ÇäÊÎÇÈ ÝÇíá ÊÕæíÑ"
    If .Show = -1 Then
    strOldDirectoryPath = .SelectedItems(1)
    strOldFileName = Dir(.SelectedItems(1))
    strOldFileType = Right(strOldFileName, 3)
    strNewDirectoryPath = strDirectoryPath
    strNewFileDir = Dir(strNewDirectoryPath & "*." & strOldFileType)
    Do While strNewFileDir <> ""
    strFileCount = strFileCount + 1
    strNewFileDir = Dir()
    Loop
    strNewFileName = InsertDate & "(" & strFileCount + 1 & ")." & strOldFileType
    Name strOldDirectoryPath As strNewDirectoryPath & strNewFileName
    PictureFolderPath = strNewDirectoryPath
    CopyMoveTick = 1
    End If
    End With
    Forms!frmInsertPicture.Cycle = 1
    Debug.Print strOldDirectoryPath
    Debug.Print strOldFileName
    Debug.Print strNewDirectoryPath
    End Function

  2. #2
    کاربر دائمی آواتار Mehr@ban
    تاریخ عضویت
    آبان 1389
    محل زندگی
    بچه محله امام رضا
    پست
    506

    نقل قول: عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

    سلام

    مسیر زیر رو یه بررسی کنید
    http://access-training.blog.ir/post/...8%AF%D8%B1-VBA

    اگر براتون مقدوره بخشی از برنامه که مشکل داره رو قرار بدین تا بشه فهمید اشکال از کجاست

  3. #3
    کاربر جدید آواتار ZAMEN58
    تاریخ عضویت
    اسفند 1396
    محل زندگی
    دهاقان
    پست
    8

    نقل قول: عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

    سلام ممنون
    این هم فایل پیوست
    1.rar

  4. #4

    نقل قول: عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

    نه file system object و نه folder dialog هیچکدوم مشکلی با اسامی فارسی یا چند تکه ندارن.
    جای دیگه دنبال مشکل بگردین.

  5. #5
    کاربر جدید آواتار ZAMEN58
    تاریخ عضویت
    اسفند 1396
    محل زندگی
    دهاقان
    پست
    8

    نقل قول: عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

    سلام نمی دونم چیه ولی همین قدر می دونم روی سیستم محل کارم به یه پوشه فارسی ایراد نمی گیره ولی اگه دوتا پشت سر هم شد فایل را جابجا نمی کنه ولی روی کامپیوتر خونه به یه دونه هم ایراد میگیره
    راستی شما بعد از وارد کردن تصاویر توی فرم جستجو هم رفتید ؟
    آیا تصویر توی پوشه رفته بود؟
    این را به این خاطر می گم که پوشه ها را ایجاد میکنه ولی تصویر انتقال پیدا نمی کنه
    ممنون

  6. #6

    نقل قول: عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

    برنامه پیوست رو یک نگاه انداختم،
    فقط باید بخشی رو که مشکل داره اون هم ساده شده قرار بدین

    تنها راهش اینه که برنامه تون رو دیباگ کنین.

  7. #7
    کاربر جدید آواتار ZAMEN58
    تاریخ عضویت
    اسفند 1396
    محل زندگی
    دهاقان
    پست
    8

    نقل قول: عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

    نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
    برنامه پیوست رو یک نگاه انداختم،
    فقط باید بخشی رو که مشکل داره اون هم ساده شده قرار بدین

    تنها راهش اینه که برنامه تون رو دیباگ کنین.
    سلام
    من فقط توی همین قسمت مشکل دارم
    منظورتون از ساده شده چیه؟
    من 90 درصد برنامه اصلی رو حذف کردم

  8. #8

    نقل قول: عدم انتخاب فایل در پوشه های با نام فارسی هنگام جستجو با DialogFilePicker

    ساده شده یعنی فقط و فقط مشکل بدون هر ابجکت اضافی دیگه
    اینجوری باید صبر کنین یک نفر بیکار پیدا بشه وقت آزاد داشته باشه

    دیباگ کنین (trace) ، سریع مشکل پیدا میشه

تاپیک های مشابه

  1. سوال: جلوگیری از دسترسی کاربران به برخی پوشه ها
    نوشته شده توسط mojtaba-n در بخش ASP.NET Web Forms
    پاسخ: 7
    آخرین پست: پنج شنبه 18 دی 1393, 22:47 عصر
  2. پاسخ: 2
    آخرین پست: دوشنبه 26 فروردین 1392, 14:10 عصر
  3. سوال: سطح دسترسی به فایل ها یک پوشه
    نوشته شده توسط mrdchmrdch در بخش ASP.NET Web Forms
    پاسخ: 1
    آخرین پست: سه شنبه 15 اسفند 1391, 02:35 صبح
  4. حرفه ای: جستجوی فایل در تمام پوشه ها و زیر پوشه ها (فولدر دارای حرف ی فارسی )
    نوشته شده توسط shinyboy در بخش برنامه نویسی در 6 VB
    پاسخ: 2
    آخرین پست: چهارشنبه 01 آذر 1391, 18:03 عصر
  5. پاسخ: 2
    آخرین پست: چهارشنبه 06 مهر 1390, 12:14 عصر

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •