۲۱-تير-۱۳۸۶, ۲۲:۳۴:۲۳
سلام من از كافي نت پست ميدم تنميتونم چيزي بزارم اما مشكلت اينه كه آرگومان هاي تابع رو اشتباه ميزني
به اين تابع دقت كن:
به اين تابع دقت كن:
کد:
filecopy "c:\file1.exe","d:\file2.exe"صفحه‌ها: 1 2
۲۱-تير-۱۳۸۶, ۲۲:۳۴:۲۳
۲۲-تير-۱۳۸۶, ۰۰:۰۴:۱۷
خوب دمت گرم !
حسین جان من این رو میدونستم
اما مشکل من اینه
[/quote]
میخام طرف خودش محل کپی رو انتخاب کنه
اما وقتی مثلا تو txtdist میزنی d:\db.kh هیچی کپی نمیشه !
حالا دستتون درد نکنه !
این رو یک کاریش میکنم
اون آپلود رو چی کار کنم ؟
حسین جان من این رو میدونستم
اما مشکل من اینه
کد:
FileCopy "c:\windows\db.kh", "txtdist.text"میخام طرف خودش محل کپی رو انتخاب کنه
اما وقتی مثلا تو txtdist میزنی d:\db.kh هیچی کپی نمیشه !
حالا دستتون درد نکنه !
این رو یک کاریش میکنم
اون آپلود رو چی کار کنم ؟
۲۲-تير-۱۳۸۶, ۰۲:۵۸:۳۴
کد:
FileCopy "c:\windows\db.kh", "txtdist.text"FileCopy "c:\windows\db.kh", txtdist.text
باید < txtdist.text> رو از تو گیومه در بیاری مثل بالا
۲۲-تير-۱۳۸۶, ۱۹:۵۲:۳۶
آقا من مشکل رو با کد زیر حل کردم !
حالا مشکل یک جای دیگست ! (ببخشید اینقدر خرم) 
وقتی کپی رو میزنیم !
اگر پسون فایل رو نزنم ! فایل بدون پسوند ذخیره میشه !
چطوری میتونم یک کد اضافه کنم که خودش پسوند رو اضافه کنه ؟
کد:
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 (ببخشید اینقدر خرم) وقتی کپی رو میزنیم !
اگر پسون فایل رو نزنم ! فایل بدون پسوند ذخیره میشه !
چطوری میتونم یک کد اضافه کنم که خودش پسوند رو اضافه کنه ؟
۲۳-تير-۱۳۸۶, ۰۲:۳۴:۳۵
۲۳-تير-۱۳۸۶, ۲۲:۴۸:۱۷
۲۴-تير-۱۳۸۶, ۰۰:۱۷:۴۵
HoseinVig نوشته است:بابا....
هیچی!
خدا رو شکر حل شد
نشون میده خیلی خسته شدی
حالا آپلودو چه کنیم
۲۷-تير-۱۳۸۶, ۰۴:۳۸:۲۱
۲۸-تير-۱۳۸۶, ۰۵:۳۷:۰۰
صفحه‌ها: 1 2