Copy To ...

[HoseinVig]

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

کد:

filecopy "c:\file1.exe","d:\file2.exe"

[avini]

خوب دمت گرم !
حسین جان من این رو میدونستم
اما مشکل من اینه

کد:

FileCopy "c:\windows\db.kh", "txtdist.text"

[/quote]
میخام طرف خودش محل کپی رو انتخاب کنه
اما وقتی مثلا تو txtdist میزنی d:\db.kh هیچی کپی نمیشه !

حالا دستتون درد نکنه !
این رو یک کاریش میکنم
اون آپلود رو چی کار کنم ؟

[saman_ae_2]

کد:

FileCopy "c:\windows\db.kh", "txtdist.text"

FileCopy "c:\windows\db.kh", txtdist.text

باید < txtdist.text> رو از تو گیومه در بیاری مثل بالا

[avini]

آقا من مشکل رو با کد زیر حل کردم !

کد:

Option Explicit

Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
    lpszProgressTitle As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Const FO_COPY = &H2
Private Const FOF_ALLOWUNDO = &H40
Public Sub SHCopyFile(ByVal from_file As String, ByVal to_file As String)
Dim sh_op As SHFILEOPSTRUCT

    With sh_op
        .hWnd = 0
        .wFunc = FO_COPY
        .pFrom = from_file & vbNullChar & vbNullChar
        .pTo = to_file & vbNullChar & vbNullChar
        .fFlags = FOF_ALLOWUNDO
    End With

    SHFileOperation sh_op
End Sub

Private Sub cmdCopy_Click()
    SHCopyFile txtFrom.Text, txtTo.Text
End Sub

Private Sub Form_Load()
Dim file_path As String

    file_path = App.Path
    If Right$(file_path, 1) <> "\" Then file_path = file_path & "\"

    txtFrom.Text = file_path & "TestFrom.txt"
    txtTo.Text = file_path & "TestTo.txt"
End Sub

حالا مشکل یک جای دیگست ! (ببخشید اینقدر خرم)
وقتی کپی رو میزنیم !
اگر پسون فایل رو نزنم ! فایل بدون پسوند ذخیره میشه !
چطوری میتونم یک کد اضافه کنم که خودش پسوند رو اضافه کنه ؟

[avini]

آقا قضیه پسوند هم حل شد !
فقط مونده قسمت آپلود !
کسی هست کمک کنه ؟

[HoseinVig]

بابا....
هیچی!

خدا رو شکر حل شد

[avini]

بابا....
هیچی!

خدا رو شکر حل شد

نشون میده خیلی خسته شدی
حالا آپلودو چه کنیم

[shamsoft]

آپلود با خود وي بي كار ساده اي نيست. يعني با دستورات وي بي اگه بخواي اين كار رو بكني بايد به صورت FTP آپلود كني كه ديگه بايد يوزر و پسورد هم داشته باشي و اگه واسه ويروس باشه اصلا راه خوبي نيست.
اگه واسه ويروس اين كارا رو مي كني بايد خودت يه آپلودر با مثلا PHP بنويسي و يه جا آپلود كني. بعدش با وي بي 6 و يه صفحه Html فايل رو براي اسكريپت PHP بفرسي تا آپلودش كنه

[Payman62]

سلام.
email.com خوب جواب میده. رو این جا آپ کن